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