Video-Capture-V4l/test.pl

BEGIN { $| = 1; print "1..1\n"; }
END {print "not ok 1\n" unless $loaded;}
use Video::Capture::V4l;
$loaded = 1;
print "ok 1\n";
#	Content
1	BEGIN { $\| = 1; print "1..1\n"; }
2	END {print "not ok 1\n" unless $loaded;}
3	use Video::Capture::V4l;
4	$loaded = 1;
5	print "ok 1\n";