- start of external Imager API access:
[imager.git] / CountColor / CountColor.pm
1 package Imager::CountColor;
2 use strict;
3 use Imager;
4 use vars qw($VERSION @ISA @EXPORT_OK);
5 require Exporter;
6 @EXPORT_OK = 'count_color';
7
8 BEGIN {
9   $VERSION = "0.01";
10   @ISA = qw(Exporter);
11   
12   eval {
13     require XSLoader;
14     XSLoader::load('Imager::CountColor', $VERSION);
15     1;
16   } or do {
17     require DynaLoader;
18     push @ISA, 'DynaLoader';
19     bootstrap Imager::CountColor $VERSION;
20   };
21 }
22
23 1;
24
25 __END__
26
27 =head1 NAME
28
29 Imager::CountColor - demonstrates writing a simple function using Imager.
30
31 =head1 SYNOPSIS
32
33   use Imager;
34   use Imager::CountColor;
35   my $im = Imager->new(...); # some Imager image
36   ...; # some sort of manipulation
37   print count_color($im, $color_object);
38
39 =head1 DESCRIPTION
40
41 This module is a simple demonstration of how to create an XS module
42 that works with Imager objects.
43
44 You may want to copy the source for this module as a start.
45
46 =head1 SEE ALSO
47
48 Imager, Imager::Filter::DynTest
49
50 =head1 AUTHOR
51
52 Tony Cook <tony@imager.perl.org>
53
54 =cut
55
56
57