Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit 7be6420e2ee0e2ad9c07eadf4222cea43dcd4ac0 1 parent eb70474
Torsten Raudssus Getty authored
Showing with 4 additions and 0 deletions.
  1. +1 −0  dist.ini
  2. +3 −0  lib/App/DuckPAN/Cmd/Roadrunner.pm
1  dist.ini
View
@@ -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
3  lib/App/DuckPAN/Cmd/Roadrunner.pm
View
@@ -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";
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.