3 use Test::More tests => 1;
\r
5 use Imager::Screenshot 'screenshot';
\r
7 Imager::Screenshot->have_win32
\r
8 or skip_all("No Win32 support");
\r
10 my $im = screenshot(hwnd => 0);
\r
12 ok($im, "got a screenshot");
\r
13 $im->write(file => "foo.ppm");
\r