add a readme and example for win32, convert files from Win32 to Unix
[imager-screenshot.git] / t / 10win32.t
index ce18b87..f1db421 100644 (file)
@@ -1,23 +1,23 @@
-#!perl -w\r
-use strict;\r
-use Test::More;\r
-\r
-use Imager::Screenshot 'screenshot';\r
-\r
-Imager::Screenshot->have_win32\r
-    or plan skip_all => "No Win32 support";\r
-\r
-plan tests => 2;\r
-\r
-{\r
-  my $im = screenshot(hwnd => 0);\r
-  \r
-  ok($im, "got a screenshot");\r
-}\r
-\r
-{ # as a method\r
-  my $im = Imager::Screenshot->screenshot(hwnd => 0);\r
-\r
-  ok($im, "call as a method");\r
-}\r
-\r
+#!perl -w
+use strict;
+use Test::More;
+
+use Imager::Screenshot 'screenshot';
+
+Imager::Screenshot->have_win32
+    or plan skip_all => "No Win32 support";
+
+plan tests => 2;
+
+{
+  my $im = screenshot(hwnd => 0);
+  
+  ok($im, "got a screenshot");
+}
+
+{ # as a method
+  my $im = Imager::Screenshot->screenshot(hwnd => 0);
+
+  ok($im, "call as a method");
+}
+