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