From: Vincent Pit Date: Sun, 23 Oct 2011 00:08:08 +0000 (+0200) Subject: Make sure code examples fit in a 80 columns terminal X-Git-Tag: v0.26~8 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=c88f53009246bbc1af1789f746acc5d841fc0ae8;p=perl%2Fmodules%2Findirect.git Make sure code examples fit in a 80 columns terminal --- diff --git a/lib/indirect.pm b/lib/indirect.pm index 85353e2..ff3d34e 100644 --- a/lib/indirect.pm +++ b/lib/indirect.pm @@ -29,8 +29,11 @@ BEGIN { use indirect; my $y = new Pear; # ok { - no indirect hook => sub { die "You really wanted $_[0]\->$_[1] at $_[2]:$_[3]" }; - my $z = new Pineapple 'fresh'; # croaks 'You really wanted Pineapple->new at blurp.pm:13' + no indirect hook => sub { + die "You really wanted $_[0]\->$_[1] at $_[2]:$_[3]" + }; + # croaks 'You really wanted Pineapple->new at blurp.pm:13' + my $z = new Pineapple 'fresh'; } } try { ... }; # warns