From: Jesse Luehrs Date: Tue, 29 Apr 2014 19:30:33 +0000 (-0400) Subject: fix tabs X-Git-Tag: Try-Tiny-0.22~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FTry-Tiny.git;a=commitdiff_plain;h=d1dd3c375314de0fcdb962ca9d740a8a6598f0b6 fix tabs --- diff --git a/t/named.t b/t/named.t index 6b78698..7de53b1 100644 --- a/t/named.t +++ b/t/named.t @@ -6,32 +6,32 @@ use warnings; use Test::More; BEGIN { - plan skip_all => "Sub::Name required" - unless eval { require Sub::Name; 1 }; - plan tests => 3; + plan skip_all => "Sub::Name required" + unless eval { require Sub::Name; 1 }; + plan tests => 3; } use Try::Tiny; my $name; try { - $name = (caller(0))[3]; + $name = (caller(0))[3]; }; is $name, "main::try {...} ", "try name"; # note extra space try { - die "Boom"; + die "Boom"; } catch { - $name = (caller(0))[3]; + $name = (caller(0))[3]; }; is $name, "main::catch {...} ", "catch name"; # note extra space try { - die "Boom"; + die "Boom"; } catch { - # noop + # noop } finally { - $name = (caller(0))[3]; + $name = (caller(0))[3]; }; is $name, "main::finally {...} ", "finally name"; # note extra space