1package X11::Xlib::Colormap; 2use strict; 3use warnings; 4use parent 'X11::Xlib::XID'; 5 6# All modules in dist share a version 7BEGIN { our $VERSION= $X11::Xlib::VERSION; } 8 9sub DESTROY { 10 my $self= shift; 11 $self->display->XFreeColormap($self->xid) 12 if $self->autofree; 13} 14 151; 16 17__END__ 18 19=head1 NAME 20 21X11::Xlib::Colormap - XID wrapper for Colormap 22 23=head1 DESCRIPTION 24 25Object representing a Colormap, which is a remote X11 resource 26referenced by an XID. When this object goes out of scope it calls 27L<XDestroyColormap|X11::Xlib/XDestroyColormap> if L<autofree|X11::Xlib::XID/autofree> 28is true. 29 30=head1 ATTRIBUTES 31 32See L<X11::Xlib::XID> 33 34=head1 AUTHOR 35 36Olivier Thauvin, E<lt>nanardon@nanardon.zarb.orgE<gt> 37 38Michael Conrad, E<lt>mike@nrdvana.netE<gt> 39 40=head1 COPYRIGHT AND LICENSE 41 42Copyright (C) 2009-2010 by Olivier Thauvin 43 44Copyright (C) 2017 by Michael Conrad 45 46This library is free software; you can redistribute it and/or modify 47it under the same terms as Perl itself, either Perl version 5.10.0 or, 48at your option, any later version of Perl 5 you may have available. 49 50=cut 51