diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/Imager/CountColor.pm')
-rwxr-xr-x | Master/tlpkg/tlperl0/lib/Imager/CountColor.pm | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/Imager/CountColor.pm b/Master/tlpkg/tlperl0/lib/Imager/CountColor.pm new file mode 100755 index 00000000000..514bc7f9526 --- /dev/null +++ b/Master/tlpkg/tlperl0/lib/Imager/CountColor.pm @@ -0,0 +1,57 @@ +package Imager::CountColor; +use strict; +use Imager; +use vars qw($VERSION @ISA @EXPORT_OK); +require Exporter; +@EXPORT_OK = 'count_color'; + +BEGIN { + $VERSION = "0.01"; + @ISA = qw(Exporter); + + eval { + require XSLoader; + XSLoader::load('Imager::CountColor', $VERSION); + 1; + } or do { + require DynaLoader; + push @ISA, 'DynaLoader'; + bootstrap Imager::CountColor $VERSION; + }; +} + +1; + +__END__ + +=head1 NAME + +Imager::CountColor - demonstrates writing a simple function using Imager. + +=head1 SYNOPSIS + + use Imager; + use Imager::CountColor; + my $im = Imager->new(...); # some Imager image + ...; # some sort of manipulation + print count_color($im, $color_object); + +=head1 DESCRIPTION + +This module is a simple demonstration of how to create an XS module +that works with Imager objects. + +You may want to copy the source for this module as a start. + +=head1 SEE ALSO + +Imager, Imager::Filter::DynTest + +=head1 AUTHOR + +Tony Cook <tony@imager.perl.org> + +=cut + + + |