view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

all_from        ('lib/XUL/Image.pm');
license         ('perl');
install_script  ('script/xul2img.pl');
install_script  ('script/img2ppt.pl');

build_requires  ('Test::More');
build_requires  ('Test::Exception');

requires  ('Win32::GuiTest');
requires  ('Clipboard');
requires  ('Image::Magick');
requires  ('Moose');
requires  ('File::Spec');
requires  ('Time::HiRes');

&WriteAll;

lib/XUL/Image.pm  view on Meta::CPAN

use 5.006001;
use Moose;

use Time::HiRes 'sleep';
use Win32::GuiTest qw( 
    FindWindowLike GetWindowText
    SetForegroundWindow SendKeys
);
use Clipboard;
use File::Spec;
use Image::Magick;

our $VERSION = '0.03';

has 'title'  => (is => 'ro', isa => 'Str', default => 'Mozilla');
has 'count'  => (is => 'ro', isa => 'Int', required => 1);
has 'delay'  => (is => 'rw', isa => 'Int', default => 1);
has 'outdir' => (is => 'rw', isa => 'Str', default => 'xul_img');

sub go {
    my $self = shift;

lib/XUL/Image.pm  view on Meta::CPAN

    open my $fh, "> $listing"
        or die "Cannot open $listing for writing: $!\n";
    print $fh join("\n", @files);
    close $fh;
    warn "$listing generated.\n";
    SendKeys("{F11}");
}

sub crop_img {
    my ($self, $imdata, $outfile) = @_;
    my $image = Image::Magick->new;
    $image->BlobToImage($imdata);
    my $ret = $image->Crop( geometry => '+0+33' );
    warn $ret if $ret;
    $ret = $image->Trim;
    warn $ret if $ret;
    $ret = $image->Write($outfile);
    warn $ret if $ret;
}

1;