view release on metacpan or  search on metacpan

t/Utils.pm  view on Meta::CPAN

sub import {
    my($class, %args) = @_;
    my $caller = caller(0);

    if (delete $args{want_jpeg}) {
        unless (grep { $_ eq 'jpeg' } Imager->read_types) {
            plan skip_all => 'this test required jpeg support at Imager';
        }
    }

    strict->import;
    warnings->import;

    for my $name (qw/ is_rotated path_to slurp /) {
        no strict 'refs';
        *{"$caller\::$name"} = \&{$name};
    }
}

my $pattern_maps = {
    1 => { x => 5,  y => 5  },