perl/perl-Try-Tiny
SHA256
8
0
Fork 0
forked from pool/perl-Try-Tiny
Code Pull Requests Activity

Accepting request 177532 from devel:languages:perl

Browse Source 
- updated to 0.12
 - doc fixes (forwarded request 177507 from coolo)

OBS-URL: https://build.opensuse.org/request/show/177532
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Try-Tiny?expand=0&rev=13
This commit is contained in:
Stephan Kulow
2013-06-06 12:00:55 +00:00
committed by Git OBS Bridge
parent 262ad6faeb d573cc1c0a
commit 0dcbbbf594
4 changed files with 28 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Try-Tiny-0.11.tar.gz (Stored with Git LFS)
View File

Binary file not shown.

BIN
Try-Tiny-0.12.tar.gz (Stored with Git LFS) Normal file
View File

Binary file not shown.

6
perl-Try-Tiny.changes
View File

@@ -1,3 +1,9 @@
-------------------------------------------------------------------
Tue Jun 4 15:25:34 UTC 2013 - coolo@suse.com
- updated to 0.12
- doc fixes
------------------------------------------------------------------- -------------------------------------------------------------------
Mon Sep 19 09:04:58 UTC 2011 - coolo@suse.com Mon Sep 19 09:04:58 UTC 2011 - coolo@suse.com

37
perl-Try-Tiny.spec
View File

@@ -1,7 +1,7 @@
# #
# spec file for package perl-Try-Tiny # spec file for package perl-Try-Tiny
# #
# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. # Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
# #
# All modifications and additions to the file contributed by third parties # All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed # remain the property of their copyright owners, unless otherwise agreed
@@ -16,15 +16,14 @@
# #
Name: perl-Try-Tiny Name: perl-Try-Tiny
Version: 0.11 Version: 0.12
Release: 1 Release: 0
License: MIT
%define cpan_name Try-Tiny %define cpan_name Try-Tiny
Summary: Minimal try/catch with proper localization of $@ Summary: Minimal try/catch with proper localization of $@
Url: http://search.cpan.org/dist/Try-Tiny/ License: MIT
Group: Development/Libraries/Perl Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/Try-Tiny/
Source: http://www.cpan.org/authors/id/D/DO/DOY/%{cpan_name}-%{version}.tar.gz Source: http://www.cpan.org/authors/id/D/DO/DOY/%{cpan_name}-%{version}.tar.gz
BuildArch: noarch BuildArch: noarch
BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRoot: %{_tmppath}/%{name}-%{version}-build
@@ -37,9 +36,9 @@ This module provides bare bones 'try'/'catch'/'finally' statements that are
designed to minimize common mistakes with eval blocks, and NOTHING else. designed to minimize common mistakes with eval blocks, and NOTHING else.
This is unlike the TryCatch manpage which provides a nice syntax and avoids This is unlike the TryCatch manpage which provides a nice syntax and avoids
adding another call stack layer, and supports calling 'return' from the try adding another call stack layer, and supports calling 'return' from the
block to return from the parent subroutine. These extra features come at a 'try' block to return from the parent subroutine. These extra features come
cost of a few dependencies, namely the Devel::Declare manpage and the at a cost of a few dependencies, namely the Devel::Declare manpage and the
Scope::Upper manpage which are occasionally problematic, and the additional Scope::Upper manpage which are occasionally problematic, and the additional
catch filtering uses the Moose manpage type constraints which may not be catch filtering uses the Moose manpage type constraints which may not be
desirable either. desirable either.
@@ -50,28 +49,30 @@ who still want to write correct 'eval' blocks without 5 lines of
boilerplate each time. boilerplate each time.
It's designed to work as correctly as possible in light of the various It's designed to work as correctly as possible in light of the various
pathological edge cases (see the BACKGROUND manpage) and to be compatible pathological edge cases (see the /BACKGROUND manpage) and to be compatible
with any style of error values (simple strings, references, objects, with any style of error values (simple strings, references, objects,
overloaded objects, etc). overloaded objects, etc).
If the try block dies, it returns the value of the last statement executed If the 'try' block dies, it returns the value of the last statement
in the catch block, if there is one. Otherwise, it returns 'undef' in executed in the 'catch' block, if there is one. Otherwise, it returns
scalar context or the empty list in list context. The following two 'undef' in scalar context or the empty list in list context. The following
examples both assign '"bar"' to '$x'. examples all assign '"bar"' to '$x':
my $x = try { die "foo" } catch { "bar" }; my $x = try { die "foo" } catch { "bar" };
my $x = try { die "foo" } || { "bar" };
my $x = (try { die "foo" }) // { "bar" };
my $x = eval { die "foo" } || "bar"; my $x = eval { die "foo" } || "bar";
You can add finally blocks making the following true. You can add 'finally' blocks, yielding the following:
my $x; my $x;
try { die 'foo' } finally { $x = 'bar' }; try { die 'foo' } finally { $x = 'bar' };
try { die 'foo' } catch { warn "Got a die: $_" } finally { $x = 'bar' }; try { die 'foo' } catch { warn "Got a die: $_" } finally { $x = 'bar' };
Finally blocks are always executed making them suitable for cleanup code 'finally' blocks are always executed making them suitable for cleanup code
which cannot be handled using local. You can add as many finally blocks to which cannot be handled using local. You can add as many 'finally' blocks
a given try block as you like. to a given 'try' block as you like.
%prep %prep
%setup -q -n %{cpan_name}-%{version} %setup -q -n %{cpan_name}-%{version}