r65379 - in /branches/upstream/libtry-tiny-perl/current: Changes META.yml lib/Try/Tiny.pm t/finally.t t/given_when.t

[carnil at users.alioth.debian.org]

Author: carnil
Date: Mon Nov 29 08:13:12 2010
New Revision: 65379

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65379
Log:
[svn-upgrade] new version libtry-tiny-perl (0.09)

Modified:
    branches/upstream/libtry-tiny-perl/current/Changes
    branches/upstream/libtry-tiny-perl/current/META.yml
    branches/upstream/libtry-tiny-perl/current/lib/Try/Tiny.pm
    branches/upstream/libtry-tiny-perl/current/t/finally.t
    branches/upstream/libtry-tiny-perl/current/t/given_when.t

Modified: branches/upstream/libtry-tiny-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtry-tiny-perl/current/Changes?rev=65379&op=diff
==============================================================================
--- branches/upstream/libtry-tiny-perl/current/Changes (original)
+++ branches/upstream/libtry-tiny-perl/current/Changes Mon Nov 29 08:13:12 2010
@@ -1,3 +1,9 @@
+0.09
+  - don't index Try::Tiny::ScopeGuard
+
+0.08
+  - fix require vs use issue in blead (RT63410)
+
 0.07
   - allow multiple finally blocks
   - pass the error, if any, to finally blocks when called

Modified: branches/upstream/libtry-tiny-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtry-tiny-perl/current/META.yml?rev=65379&op=diff
==============================================================================
--- branches/upstream/libtry-tiny-perl/current/META.yml (original)
+++ branches/upstream/libtry-tiny-perl/current/META.yml Mon Nov 29 08:13:12 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Try-Tiny
-version:            0.07
+version:            0.09
 abstract:           ~
 author:  []
 license:            unknown

Modified: branches/upstream/libtry-tiny-perl/current/lib/Try/Tiny.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtry-tiny-perl/current/lib/Try/Tiny.pm?rev=65379&op=diff
==============================================================================
--- branches/upstream/libtry-tiny-perl/current/lib/Try/Tiny.pm (original)
+++ branches/upstream/libtry-tiny-perl/current/lib/Try/Tiny.pm Mon Nov 29 08:13:12 2010
@@ -10,7 +10,7 @@
 	@ISA = qw(Exporter);
 }
 
-$VERSION = "0.07";
+$VERSION = "0.09";
 
 $VERSION = eval $VERSION;
 
@@ -130,7 +130,8 @@
 }
 
 {
-  package Try::Tiny::ScopeGuard;
+  package # hide from PAUSE
+    Try::Tiny::ScopeGuard;
 
   sub _new {
     shift;

Modified: branches/upstream/libtry-tiny-perl/current/t/finally.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtry-tiny-perl/current/t/finally.t?rev=65379&op=diff
==============================================================================
--- branches/upstream/libtry-tiny-perl/current/t/finally.t (original)
+++ branches/upstream/libtry-tiny-perl/current/t/finally.t Mon Nov 29 08:13:12 2010
@@ -3,7 +3,7 @@
 use strict;
 #use warnings;
 
-use Test::More tests => 12;
+use Test::More tests => 13;
 
 BEGIN { use_ok 'Try::Tiny' };
 
@@ -62,4 +62,16 @@
   is_deeply(\@_, [ "Die\n" ], "finally got passed the exception");
 };
 
+try {
+    try {
+        die "foo";
+    }
+    catch {
+        die "bar";
+    }
+    finally {
+        pass("finally called");
+    };
+};
+
 1;

Modified: branches/upstream/libtry-tiny-perl/current/t/given_when.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtry-tiny-perl/current/t/given_when.t?rev=65379&op=diff
==============================================================================
--- branches/upstream/libtry-tiny-perl/current/t/given_when.t (original)
+++ branches/upstream/libtry-tiny-perl/current/t/given_when.t Mon Nov 29 08:13:12 2010
@@ -10,6 +10,8 @@
     plan tests => 3;
     use_ok("Try::Tiny");
 }
+
+use 5.010;
 
 my ( $error, $topic );