Select Code to Download

#   Failed test ' -- the inner trap -- print() with closed STDOUT: War
+nings'
#   at t/03-files.pl line 80.
...
# '
#     doesn't match '(?-xism:\A(?-xism:^print\(\)\ on\ closed\ filehan
+dle\ STDOUT\ at\ )[^\0]*\z)'
# Looks like you failed 1 test of 76.

sidhekin@blackbox[07:05:22]~$ 562perl -MTest::More=tests,1 -le 'like("
+print() on closed filehandle STDOUT at t/03-files.pl line 131.\n", qr
+/(?-xism:\A(?-xism:^print\(\)\ on\ closed\ filehandle\ STDOUT\ at\ )[
+^\0]*\z)/)'
1..1
ok 1
sidhekin@blackbox[19:38:28]~$

tr.pmnote-641932 td.reply-body:first-child:before {
  content: url(http://icanhascheezburger.wordpress.com/files/2007/10/1
+28347333970156250nooneunderstan.jpg);
...
tr.pmnote-641932 td.reply-body * {
  display: none !important;
}

sub get_definition_result {
       my ($dbh, $word_term, $dict) = @_; 
...
 
       return [ [ undef, $result ] ];
}

use Test::More qw( no_plan );
use Test::Trap qw(:void_is_scalar:diag_all_on_fail);
...
#       "wantarray" => "",
#       "warn"      => [],
#     }, "Test::Trap")

# bart's setup:
$re = 'Il est (\d+) heurs moins (\d+).';
...

# and a print:
print

#!/usr/bin/perl

...

trap { my $obj = bless [], 'A3'; 1 };
$trap->did_die( q[Failure during scope cleanup is detected] );

1..6
# Should die, but doesn't:
...
#   at /home/eirik/tmp/kladd.pl line 28.
#     Expecting to die(), but instead return()ed with []
# Looks like you failed 3 tests of 6.

#!/usr/bin/perl

...
/*%*;
__END__
}*%*;

perl -wles/ -e+/chr -e32/ge,print -efor@_=q.Look, -eMa -e-- -eno -eshe
+ll -emeta -echaracters..chr -e33

# like this?
register( foo => [qw( i p n )], \&bar );
...

# or more verbose?
register( foo => [qw( indexed predicate name )], \&bar );