r4272 - in /packages/libreturn-value-perl/trunk: Changes LICENSE
MANIFEST
META.yml Makefile.PL debian/changelog lib/Return/Value.pm t/perl-critic.t
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Nov 19 19:03:22 CET 2006
Author: gregoa-guest
Date: Sun Nov 19 19:03:21 2006
New Revision: 4272
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4272
Log:
* New upstream release.
Added:
packages/libreturn-value-perl/trunk/LICENSE
- copied unchanged from r4271, packages/libreturn-value-perl/branches/upstream/current/LICENSE
packages/libreturn-value-perl/trunk/t/perl-critic.t
- copied unchanged from r4271, packages/libreturn-value-perl/branches/upstream/current/t/perl-critic.t
Modified:
packages/libreturn-value-perl/trunk/Changes
packages/libreturn-value-perl/trunk/MANIFEST
packages/libreturn-value-perl/trunk/META.yml
packages/libreturn-value-perl/trunk/Makefile.PL
packages/libreturn-value-perl/trunk/debian/changelog
packages/libreturn-value-perl/trunk/lib/Return/Value.pm
Modified: packages/libreturn-value-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libreturn-value-perl/trunk/Changes?rev=4272&op=diff
==============================================================================
--- packages/libreturn-value-perl/trunk/Changes (original)
+++ packages/libreturn-value-perl/trunk/Changes Sun Nov 19 19:03:21 2006
@@ -1,3 +1,7 @@
+1.302 2006-11-14
+ perl-critic tests
+ croak, not die, on invalid constructor input
+
1.301 2006-07-28
fix typoes in changelog and docs
improve test coverage
Modified: packages/libreturn-value-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libreturn-value-perl/trunk/MANIFEST?rev=4272&op=diff
==============================================================================
--- packages/libreturn-value-perl/trunk/MANIFEST (original)
+++ packages/libreturn-value-perl/trunk/MANIFEST Sun Nov 19 19:03:21 2006
@@ -10,4 +10,6 @@
t/pod-coverage.t
t/success.t
t/use.t
+t/perl-critic.t
+LICENSE
META.yml Module meta-data (added by MakeMaker)
Modified: packages/libreturn-value-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libreturn-value-perl/trunk/META.yml?rev=4272&op=diff
==============================================================================
--- packages/libreturn-value-perl/trunk/META.yml (original)
+++ packages/libreturn-value-perl/trunk/META.yml Sun Nov 19 19:03:21 2006
@@ -1,11 +1,14 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Return-Value
-version: 1.301
-version_from: lib/Return/Value.pm
-installdirs: site
-requires:
+--- #YAML:1.0
+name: Return-Value
+version: 1.302
+abstract: Polymorphic Return Values
+license: perl
+generated_by: ExtUtils::MakeMaker version 6.31
+distribution_type: module
+requires:
Test::More: 0.47
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
+author:
+ - Casey West <casey at geeknest.com>
Modified: packages/libreturn-value-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libreturn-value-perl/trunk/Makefile.PL?rev=4272&op=diff
==============================================================================
--- packages/libreturn-value-perl/trunk/Makefile.PL (original)
+++ packages/libreturn-value-perl/trunk/Makefile.PL Sun Nov 19 19:03:21 2006
@@ -1,11 +1,12 @@
use ExtUtils::MakeMaker;
WriteMakefile (
- AUTHOR => 'Casey West <casey at geeknest.com>',
- ABSTRACT => "Polymorphic Return Values",
- NAME => 'Return::Value',
- PREREQ_PM => {
- 'Test::More' => '0.47',
- },
- VERSION_FROM => 'lib/Return/Value.pm',
- );
+ AUTHOR => 'Casey West <casey at geeknest.com>',
+ ABSTRACT => "Polymorphic Return Values",
+ NAME => 'Return::Value',
+ LICENSE => 'perl',
+ PREREQ_PM => {
+ 'Test::More' => '0.47',
+ },
+ VERSION_FROM => 'lib/Return/Value.pm',
+);
Modified: packages/libreturn-value-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libreturn-value-perl/trunk/debian/changelog?rev=4272&op=diff
==============================================================================
--- packages/libreturn-value-perl/trunk/debian/changelog (original)
+++ packages/libreturn-value-perl/trunk/debian/changelog Sun Nov 19 19:03:21 2006
@@ -1,3 +1,9 @@
+libreturn-value-perl (1.302-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Sun, 19 Nov 2006 19:02:24 +0100
+
libreturn-value-perl (1.301-1) unstable; urgency=low
* New upstream release.
Modified: packages/libreturn-value-perl/trunk/lib/Return/Value.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libreturn-value-perl/trunk/lib/Return/Value.pm?rev=4272&op=diff
==============================================================================
--- packages/libreturn-value-perl/trunk/lib/Return/Value.pm (original)
+++ packages/libreturn-value-perl/trunk/lib/Return/Value.pm Sun Nov 19 19:03:21 2006
@@ -1,12 +1,14 @@
+use strict;
+## no critic RequireUseWarnings
package Return::Value;
# vi:et:sw=4 ts=4
-use strict;
-
-use vars qw[$VERSION @EXPORT];
-$VERSION = '1.301';
+
+use vars qw[$VERSION @EXPORT]; ## no critic Export
+$VERSION = '1.302';
@EXPORT = qw[success failure];
use base qw[Exporter];
+use Carp ();
=head1 NAME
@@ -14,9 +16,9 @@
=head1 VERSION
-version 1.30
-
- $Id: Value.pm,v 1.5 2005/01/06 17:15:09 rjbs Exp $
+version 1.302
+
+ $Id: /my/cs/projects/return/trunk/lib/Return/Value.pm 28007 2006-11-14T22:21:03.864745Z rjbs $
=head1 SYNOPSIS
@@ -207,7 +209,7 @@
sub new {
my $class = shift;
- bless { type => 'failure', string => '', prop => {}, @_ } => $class;
+ bless { type => 'failure', string => q{}, prop => {}, @_ } => $class;
}
=pod
@@ -240,12 +242,13 @@
sub type {
my ($self, $value) = @_;
return _ah($self, 'type') unless @_ > 1;
- die "invalid result type: $value"
+ Carp::croak "invalid result type: $value"
unless $value eq 'success' or $value eq 'failure';
return _ah($self, 'type', $value);
};
foreach my $name ( qw[errno string data] ) {
+ ## no critic (ProhibitNoStrict)
no strict 'refs';
*{$name} = sub {
my ($self, $value) = @_;
@@ -254,7 +257,7 @@
};
}
-sub prop {
+sub prop {
my ($self, $name, $value) = @_;
return _ah($self, 'prop') unless $name;
return _ah($self, 'prop')->{$name} unless @_ > 2;
@@ -331,9 +334,9 @@
=head1 COPYRIGHT
- Copyright (c) 2004 Casey West and Ricardo SIGNES. All rights reserved.
- This module is free software; you can redistribute it and/or modify it
- under the same terms as Perl itself.
+ Copyright (c) 2004-2006 Casey West and Ricardo SIGNES. All rights reserved.
+ This module is free software; you can redistribute it and/or modify it under
+ the same terms as Perl itself.
=cut
More information about the Pkg-perl-cvs-commits
mailing list