projects / imager-screenshot.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!perl -w\r | |
| 2 | use strict;\r | |
| 3 | use Test::More;\r | |
| 4 | \r | |
| 5 | use Imager::Screenshot 'screenshot';\r | |
| 6 | \r | |
| 7 | Imager::Screenshot->have_win32\r | |
| 8 | or plan skip_all => "No Win32 support";\r | |
| 9 | \r | |
| 10 | plan tests => 2;\r | |
| 11 | \r | |
| 12 | {\r | |
| 13 | my $im = screenshot(hwnd => 0);\r | |
| 14 | \r | |
| 15 | ok($im, "got a screenshot");\r | |
| 16 | }\r | |
| 17 | \r | |
| 18 | { # as a method\r | |
| 19 | my $im = Imager::Screenshot->screenshot(hwnd => 0);\r | |
| 20 | \r | |
| 21 | ok($im, "call as a method");\r | |
| 22 | }\r | |
| 23 | \r |