Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
Color	[ DIR ]	drwxrwxrwx
Expr	[ DIR ]	drwxrwxrwx
File	[ DIR ]	drwxrwxrwx
Filter	[ DIR ]	drwxrwxrwx
Font	[ DIR ]	drwxrwxrwx
include	[ DIR ]	drwxrwxrwx
API.pod	9.89 KB	-rw-rw-rw-
APIRef.pod	51.62 KB	-rw-rw-rw-
Color.pm	16.61 KB	-rw-rw-rw-
Cookbook.pod	15.1 KB	-rw-rw-rw-
CountColor.pm	817 B	-rw-rw-rw-
Draw.pod	36.08 KB	-rw-rw-rw-
Engines.pod	13.1 KB	-rw-rw-rw-
Expr.pm	15.57 KB	-rw-rw-rw-
ExtUtils.pm	2.06 KB	-rw-rw-rw-
Files.pod	55.26 KB	-rw-rw-rw-
Fill.pm	12.08 KB	-rw-rw-rw-
Filters.pod	21.76 KB	-rw-rw-rw-
Font.pm	27.12 KB	-rw-rw-rw-
Fountain.pm	9.25 KB	-rw-rw-rw-
Handy.pod	924 B	-rw-rw-rw-
IO.pod	8.35 KB	-rw-rw-rw-
ImageTypes.pod	32.63 KB	-rw-rw-rw-
Inline.pod	1.54 KB	-rw-rw-rw-
Install.pod	10.91 KB	-rw-rw-rw-
LargeSamples.pod	3.15 KB	-rw-rw-rw-
Matrix2d.pm	10.16 KB	-rw-rw-rw-
Preprocess.pm	7.32 KB	-rw-rw-rw-
Probe.pm	16.45 KB	-rw-rw-rw-
Regops.pm	9.36 KB	-rw-rw-rw-
Security.pod	1.68 KB	-rw-rw-rw-
Test.pm	30.68 KB	-rw-rw-rw-
Threads.pod	1.83 KB	-rw-rw-rw-
Transform.pm	12.1 KB	-rw-rw-rw-
Transformations.pod	27.45 KB	-rw-rw-rw-
Tutorial.pod	4.98 KB	-rw-rw-rw-
interface.pod	8.72 KB	-rw-rw-rw-
regmach.pod	2.68 KB	-rw-rw-rw-
typemap	4.03 KB	-rw-rw-rw-

Code Editor : ExtUtils.pm

package Imager::ExtUtils;
use 5.006;
use strict;
use File::Spec;

our $VERSION = "1.003";

=head1 NAME

Imager::ExtUtils - functions handy in writing Imager extensions

=head1 SYNOPSIS

# make Imager easier to use with Inline
  # perldoc Imager::Inline
  use Inline with => 'Imager';

=head1 DESCRIPTION

=over

=item base_dir

Returns the base directory where Imager is installed.

=cut

# figure out where Imager is installed
sub base_dir {
  for my $inc_dir (@INC) {
    if (-e "$inc_dir/Imager.pm") {
      my $base_dir = $inc_dir;
      unless (File::Spec->file_name_is_absolute($base_dir)) {
	$base_dir = File::Spec->rel2abs($base_dir);
      }
      return $base_dir;
    }
  }

die "Cannot locate an installed Imager!";
}

=item inline_config

Implements Imager's Inline::C C<with> hook.

=cut

sub inline_config {
  my ($class) = @_;
  my $base = base_dir();

return
    {
     INC => $class->includes,
     TYPEMAPS => $class->typemap,
     AUTO_INCLUDE => <<CODE,
/* Inserted by Imager $Imager::VERSION */
#include "imext.h"
#include "imperl.h"
DEFINE_IMAGER_CALLBACKS;
CODE
     BOOT => 'PERL_INITIALIZE_IMAGER_CALLBACKS;',
     FILTERS => \&_inline_filter,
    };
}

my @inline_replace =
  qw(
   Imager::ImgRaw
   Imager::Color::Float
   Imager::Color
   Imager::IO
  );

my %inline_replace =
  map { (my $tmp = $_) =~ s/::/__/g; $_ => $tmp } @inline_replace;

my $inline_replace_re = "\\b(" . join('|', @inline_replace) . ")\\b";

sub _inline_filter {
  my $code = shift;

$code =~ s/$inline_replace_re/$inline_replace{$1}/g;

$code;
}

=item includes

Returns -I options suitable for use with ExtUtils::MakeMaker's INC
option.

=cut

sub includes {
  my $class = shift;
  my $base = $class->base_dir();

"-I" . $base . '/Imager/include',
}

=item typemap

Returns the full path to Imager's installed typemap.

=cut

sub typemap {
  my $class = shift;
  my $base = $class->base_dir();

$base . '/Imager/typemap';
}

__END__

=back

=head1 AUTHOR

Tony Cook <tonyc@cpan.org>

=head1 REVISION

$Revision$

=head1 SEE ALSO

Imager, Imager::API, Imager::Inline, Imager::APIRef.

=cut

${this.title}

Code Editor : ExtUtils.pm