Changeset 34681 for lang/perl

Timestamp:

07/31/09 09:37:29 (4 years ago)

Author:

ktat

Message:

add beep

Location:

lang/perl/Script-Carp/trunk

Files:

• Changes (modified) (1 diff)
• lib/Script/Carp.pm (modified) (6 diffs)

lang/perl/Script-Carp/trunk/Changes

@@ -1 +1 @@
 Revision history for Script-Carp
+
+0.04    2009-07-31 09:35:00
+        add beep.
 
 0.03    2009-06-13 15:12:00
         fix test script.
+        add log.
 
 0.02    2009-06-08 14:37:59

lang/perl/Script-Carp/trunk/lib/Script/Carp.pm

@@ -13 +13 @@
   if (defined $_[0] and $_[0] =~/^Died /) {
     $_die->(@_)
+  } elsif (defined $_[0] and $_[0] =~/ at $filename line $line\./)  {
+    $_die->('Died ', @_);
   } else {
     $_die->('Died ', @_, " at $filename line $line.\n")
@@ -47 +49 @@
        close $out;
      };
+   },
+   -beep => sub {
+     local $@;
+     eval "require Audio::Beep";
+     unless ($@) {
+       my ($args) = @_;
+       $args->[0] ||= "g'";
+       my $beep = $args->[0] =~/^-/ ? "c' d' e'" : shift @$args;
+       return sub {
+         Audio::Beep->new->play($beep);
+       }
+     } else {
+       my $msg = "You need Audio::Beep module.";
+       $msg .= ' you may need "modprobe pcspkr" and/or "xset b on"' if $^O =~/linux/i;
+       warn $msg;
+       return sub {};
+     }
    },
    -ignore_eval => sub {
@@ -99 +118 @@
 =cut
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 
@@ -108 +127 @@
   use Script::Carp -stop; # display error and wait STDIN
   use Script::Carp -file => "error.txt"; # write message to error.txt
+  use Script::Carp -stop, -file => "error.txt"; # mixed the above
   use Script::Carp -log  => "error_log.txt"; # append message to error_log.txt
-  use Script::Carp -stop, -file => "error.txt"; # mixed the above
+  use Script::Carp -beep => "c d e f g"; # beep
+
 
 use class method with options
@@ -117 +138 @@
   Script::Carp->setup(-log => "error_log.txt");
   Script::Carp->setup(-stop, -file => "error.txt");
+  Script::Carp->setup(-beep => "c d e f g");
 
 =head1 DESCRIPTION
@@ -163 +185 @@
 It is like file, but it will not clear file content.
 When script died, messages are appended to "log_file_name".
+
+=head2 -beep
+
+ use Script::Carp -beep;
+ use Script::Carp -beep => "c d e f g";
+
+or
+
+ Script::Carp->setup(-beep);
+ Script::Carp->setup(-beep => "c d e f g");
+
+beep when died. It requires Audio::Beep module.
+If you use Linux, you may need to 'modprobe pcspkr", 'xset -b on'
 
 =head1 METHOD