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.02";
  10   @ISA = qw(Exporter);
  11
  12   require XSLoader;
  13   XSLoader::load('Imager::CountColor', $VERSION);
  14 }
  15
  16 1;
  17
  18 __END__
  19
  20 =head1 NAME
  21
  22 Imager::CountColor - demonstrates writing a simple function using Imager.
  23
  24 =head1 SYNOPSIS
  25
  26   use Imager;
  27   use Imager::CountColor;
  28   my $im = Imager->new(...); # some Imager image
  29   ...; # some sort of manipulation
  30   print count_color($im, $color_object);
  31
  32 =head1 DESCRIPTION
  33
  34 This module is a simple demonstration of how to create an XS module
  35 that works with Imager objects.
  36
  37 You may want to copy the source for this module as a start.
  38
  39 =head1 SEE ALSO
  40
  41 Imager, Imager::Filter::DynTest
  42
  43 =head1 AUTHOR
  44
  45 Tony Cook <tonyc@cpan.org>
  46
  47 =cut
  48
  49
  50