1use strict; 2use Image::Grab qw(grab); 3use Cwd; 4use Test::Simple tests => 2; 5 6my $pwd = cwd; 7$ENV{DOMAIN} ||= "example.com"; # Net::Domain warnings 8my $image = Image::Grab->grab(URL=>"file://" . $pwd . "/t/data/perl.gif"); 9 10ok(defined $image); 11 12my $image2 = grab(URL=>"file://" . $pwd . "/t/data/perl.gif"); 13ok(defined $image2); 14