[imager.git] / CountColor / CountColor.pm

package Imager::CountColor;
use strict;
use Imager;
use vars qw($VERSION @ISA @EXPORT_OK);
require Exporter;
@EXPORT_OK = 'count_color';

BEGIN {
  $VERSION = "0.02";
  @ISA = qw(Exporter);
  
  require XSLoader;
  XSLoader::load('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 <tonyc@cpan.org>

=cut
Commit	Line	Data
92bda632 TC	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 {
a5919365	9	$VERSION = "0.02";
92bda632 TC	10	@ISA = qw(Exporter);
92bda632 TC	11
a5919365 TC	12	require XSLoader;
a5919365 TC	13	XSLoader::load('Imager::CountColor', $VERSION);
92bda632 TC	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
5b480b14	45	Tony Cook <tonyc@cpan.org>
92bda632 TC	46
	47	=cut
	48
	49
	50