Permalink
Browse files

Added Time::HiRes for making roadrunner beep beep possible on finish

  • Loading branch information...
1 parent eb70474 commit 7be6420e2ee0e2ad9c07eadf4222cea43dcd4ac0 @Getty Getty committed May 13, 2013
Showing with 4 additions and 0 deletions.
  1. +1 −0 dist.ini
  2. +3 −0 lib/App/DuckPAN/Cmd/Roadrunner.pm
View
1 dist.ini
@@ -61,6 +61,7 @@ Term::UI = 0.30
URI = 1.60
version = 0.96
Starman = 0
+Time::HiRes = 1.9725
[Prereqs / TestRequires]
Test::More = 0.98
View
3 lib/App/DuckPAN/Cmd/Roadrunner.pm
@@ -4,6 +4,7 @@ use Moo;
with qw( App::DuckPAN::Cmd );
use MooX::Options;
+use Time::HiRes qw( usleep );
sub run {
my ( $self, @args ) = @_;
@@ -19,6 +20,8 @@ sub run {
$self->app->print_text(
"Everything fine!",
);
+
+ print "\a"; usleep 225000; print "\a";
}
}

0 comments on commit 7be6420

Please sign in to comment.