summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl0/lib/Imager/CountColor.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/Imager/CountColor.pm')
-rwxr-xr-xMaster/tlpkg/tlperl0/lib/Imager/CountColor.pm57
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
+
+
+