Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 22 lines (17 sloc) 0.37 kb
#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use VHS;
my $file = shift || '';
open(my $fh, ">>/tmp/luke") or die "Can't open /tmp/luke: $!";
print $fh "Taking picture to '$file'\n";
close $fh;
if ($file) {
VHS->picture_to_file($file);
}
else {
my $uri = VHS->take_picture(shift);
print "Took picture: $uri\n";
}
Jump to Line
Something went wrong with that request. Please try again.