App-Dapper
view release on metacpan or search on metacpan
$monitor->watch( { name => $filename } );
}}, ".");
# First scan just finds out about the monitored files. No changes will be reported
$monitor->scan;
# Monitor for changes
while ( 1 ) { for my $change ($monitor->scan) { if ($change->is_change) { build(); last; } } sleep 1; }
}
sub help() {
pod2usage({-sections => [ qw(USAGE) ] });
exit(0);
}
sub version() {
print "Dapper version $App::Dapper::VERSION\n";
exit(0);
}
Getopt::Mixed::init(q{h
v version>v
s=s source>s
o=s output>o
l=s layout>l
c=s config>c
( run in 0.665 second using v1.01-cache-2.11-cpan-65fba6d93b7 )