Hello community,
here is the log from the commit of package perl-MooseX-Types-Common for
openSUSE:Factory checked in at 2012-02-22 15:54:12
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-MooseX-Types-Common (Old)
and /work/SRC/openSUSE:Factory/.perl-MooseX-Types-Common.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MooseX-Types-Common", Maintainer is ""
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-MooseX-Types-Common/perl-MooseX-Types-Common.changes
2012-02-16 14:59:50.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-MooseX-Types-Common.new/perl-MooseX-Types-Common.changes
2012-02-22 15:54:23.000000000 +0100
@@ -1,0 +2,6 @@
+Tue Feb 21 11:37:06 UTC 2012 - [email protected]
+
+- updated to 0.001005
+ - add NumericCode type, RT#74346
+
+-------------------------------------------------------------------
Old:
----
MooseX-Types-Common-0.001004.tar.gz
New:
----
MooseX-Types-Common-0.001005.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-MooseX-Types-Common.spec ++++++
--- /var/tmp/diff_new_pack.ulKPWn/_old 2012-02-22 15:54:25.000000000 +0100
+++ /var/tmp/diff_new_pack.ulKPWn/_new 2012-02-22 15:54:25.000000000 +0100
@@ -17,7 +17,7 @@
Name: perl-MooseX-Types-Common
-Version: 0.001004
+Version: 0.001005
Release: 0
%define cpan_name MooseX-Types-Common
Summary: A library of commonly used type constraints
@@ -42,6 +42,7 @@
#BuildRequires: perl(MooseX::Types::Common::String)
#BuildRequires: perl(MooseX::Types::Moose)
#BuildRequires: perl(Parse::CPAN::Meta)
+#BuildRequires: perl(Test::Exception)
#BuildRequires: perl(YAML::Tiny)
Requires: perl(Moose) >= 0.39
Requires: perl(MooseX::Types) >= 0.04
++++++ MooseX-Types-Common-0.001004.tar.gz ->
MooseX-Types-Common-0.001005.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001004/Changes
new/MooseX-Types-Common-0.001005/Changes
--- old/MooseX-Types-Common-0.001004/Changes 2011-12-06 05:30:35.000000000
+0100
+++ new/MooseX-Types-Common-0.001005/Changes 2012-02-20 02:46:39.000000000
+0100
@@ -1,3 +1,5 @@
+0.001005 2012-02-19 20:45EST
+ - add NumericCode type, RT #74346
0.001004 2011-12-05 23:30EST
- use Test::Fatal instead of Test::Exception (Justin Hunter)
- Added {Lower,Upper}CaseSimpleStr and {Lower,Upper}CaseStr, RT #71133
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001004/META.yml
new/MooseX-Types-Common-0.001005/META.yml
--- old/MooseX-Types-Common-0.001004/META.yml 2011-12-06 05:31:56.000000000
+0100
+++ new/MooseX-Types-Common-0.001005/META.yml 2012-02-20 02:50:17.000000000
+0100
@@ -27,4 +27,4 @@
IRC: irc://irc.perl.org/#moose
license: http://dev.perl.org/licenses/
repository: git://git.moose.perl.org/MooseX-Types-Common.git
-version: 0.001004
+version: 0.001005
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001004/MYMETA.json
new/MooseX-Types-Common-0.001005/MYMETA.json
--- old/MooseX-Types-Common-0.001004/MYMETA.json 2011-12-06
05:31:56.000000000 +0100
+++ new/MooseX-Types-Common-0.001005/MYMETA.json 2012-02-20
02:50:16.000000000 +0100
@@ -4,7 +4,7 @@
"This distribution was extracted from the L<Reaction> code base by
Guillermo"
],
"dynamic_config" : 0,
- "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter
version 2.112621",
+ "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter
version 2.120351",
"license" : [
"perl_5"
],
@@ -23,13 +23,13 @@
"build" : {
"requires" : {
"ExtUtils::MakeMaker" : "6.36",
- "Test::Fatal" : 0,
+ "Test::Fatal" : "0",
"Test::More" : "0.62"
}
},
"configure" : {
"requires" : {
- "ExtUtils::MakeMaker" : 0
+ "ExtUtils::MakeMaker" : "0"
}
},
"runtime" : {
@@ -40,5 +40,5 @@
}
},
"release_status" : "stable",
- "version" : "0.001004"
+ "version" : "0.001005"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001004/MYMETA.yml
new/MooseX-Types-Common-0.001005/MYMETA.yml
--- old/MooseX-Types-Common-0.001004/MYMETA.yml 2011-12-06 05:31:56.000000000
+0100
+++ new/MooseX-Types-Common-0.001005/MYMETA.yml 2012-02-20 02:50:16.000000000
+0100
@@ -9,7 +9,7 @@
configure_requires:
ExtUtils::MakeMaker: 0
dynamic_config: 0
-generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version
2.112621'
+generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version
2.120351'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -22,4 +22,4 @@
requires:
Moose: 0.39
MooseX::Types: 0.04
-version: 0.001004
+version: 0.001005
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001004/lib/MooseX/Types/Common/Numeric.pm
new/MooseX-Types-Common-0.001005/lib/MooseX/Types/Common/Numeric.pm
--- old/MooseX-Types-Common-0.001004/lib/MooseX/Types/Common/Numeric.pm
2011-12-06 05:31:03.000000000 +0100
+++ new/MooseX-Types-Common-0.001005/lib/MooseX/Types/Common/Numeric.pm
2012-02-20 02:47:06.000000000 +0100
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.001004';
+our $VERSION = '0.001005';
use MooseX::Types -declare => [
qw(PositiveNum PositiveOrZeroNum
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001004/lib/MooseX/Types/Common/String.pm
new/MooseX-Types-Common-0.001005/lib/MooseX/Types/Common/String.pm
--- old/MooseX-Types-Common-0.001004/lib/MooseX/Types/Common/String.pm
2011-12-06 05:31:08.000000000 +0100
+++ new/MooseX-Types-Common-0.001005/lib/MooseX/Types/Common/String.pm
2012-02-20 02:47:09.000000000 +0100
@@ -3,11 +3,12 @@
use strict;
use warnings;
-our $VERSION = '0.001004';
+our $VERSION = '0.001005';
use MooseX::Types -declare => [
qw(SimpleStr
NonEmptySimpleStr
+ NumericCode
LowerCaseSimpleStr
UpperCaseSimpleStr
Password
@@ -43,6 +44,18 @@
: ()
);
+subtype NumericCode,
+ as NonEmptySimpleStr,
+ where { $_ =~ m/^[0-9]+$/ },
+ message {
+ 'Must be a non-empty single line of no more than 255 chars that consists '
+ . 'of numeric characters only'
+ };
+
+coerce NumericCode,
+ from NonEmptySimpleStr,
+ via { my $code = $_; $code =~ s/[[:punct:]]//g; return $code };
+
subtype Password,
as NonEmptySimpleStr,
where { length($_) > 3 },
@@ -203,6 +216,13 @@
=back
+=item * NumericCode
+
+A Str with no new-line characters that consists of only Numeric characters.
+Examples include, Social Security Numbers, PINs, Postal Codes, HTTP Status
+Codes, etc. Supports attempting to coerce from a string that has punctuation
+in it ( e.g credit card number 4111-1111-1111-1111 ).
+
=head1 SEE ALSO
=over
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/MooseX-Types-Common-0.001004/lib/MooseX/Types/Common.pm
new/MooseX-Types-Common-0.001005/lib/MooseX/Types/Common.pm
--- old/MooseX-Types-Common-0.001004/lib/MooseX/Types/Common.pm 2011-12-06
05:30:58.000000000 +0100
+++ new/MooseX-Types-Common-0.001005/lib/MooseX/Types/Common.pm 2012-02-20
02:47:02.000000000 +0100
@@ -4,7 +4,7 @@
use warnings;
use Carp qw/cluck/;
-our $VERSION = '0.001004';
+our $VERSION = '0.001005';
sub import {
my $package = shift;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001004/t/01-string.t
new/MooseX-Types-Common-0.001005/t/01-string.t
--- old/MooseX-Types-Common-0.001004/t/01-string.t 2011-12-06
05:16:04.000000000 +0100
+++ new/MooseX-Types-Common-0.001005/t/01-string.t 2012-02-20
02:44:07.000000000 +0100
@@ -2,8 +2,9 @@
use strict;
use warnings;
-use Test::More tests => 22;
+use Test::More tests => 25;
use Test::Fatal;
+use Test::Exception;
{
package FooTest;
@@ -17,7 +18,9 @@
StrongPassword
NonEmptyStr
LowerCaseStr
- UpperCaseStr),
+ UpperCaseStr
+ NumericCode
+ ),
);
has simplestr => ( is => 'rw', isa => SimpleStr );
@@ -29,6 +32,7 @@
has strongpassword => ( is => 'rw', isa => StrongPassword );
has lowercasestr => ( is => 'rw', isa => LowerCaseStr );
has uppercasestr => ( is => 'rw', isa => UpperCaseStr );
+ has numericcode => ( is => 'rw', isa => NumericCode );
}
my $ins = FooTest->new;
@@ -63,3 +67,8 @@
isnt(exception { $ins->uppercasestr('notok') }, undef, 'UpperCaseStr');
is(exception { $ins->uppercasestr('OK') }, undef, 'UpperCaseStr 2');
+
+
+is( exception { $ins->numericcode('032') }, undef, 'NumericCode lives');
+isnt( exception { $ins->numericcode('abc') }, undef, 'NumericCode dies' );
+isnt( exception { $ins->numericcode('x18') }, undef, 'mixed NumericCode
dies');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/MooseX-Types-Common-0.001004/t/04-coerce.t
new/MooseX-Types-Common-0.001005/t/04-coerce.t
--- old/MooseX-Types-Common-0.001004/t/04-coerce.t 2011-12-06
05:19:07.000000000 +0100
+++ new/MooseX-Types-Common-0.001005/t/04-coerce.t 2012-02-20
02:44:07.000000000 +0100
@@ -2,17 +2,24 @@
use strict;
use warnings;
-use Test::More tests => 4;
+use Test::More tests => 5;
{
package FooTest;
use Moose;
- use MooseX::Types::Common::String ( qw( LowerCaseSimpleStr
UpperCaseSimpleStr LowerCaseStr UpperCaseStr) );
+ use MooseX::Types::Common::String ( qw(
+ LowerCaseSimpleStr
+ UpperCaseSimpleStr
+ LowerCaseStr
+ UpperCaseStr
+ NumericCode
+ ) );
has uppercasesimplestr => ( is => 'rw', isa => UpperCaseSimpleStr, coerce =>
1 );
has lowercasesimplestr => ( is => 'rw', isa => LowerCaseSimpleStr, coerce =>
1 );
has uppercasestr => ( is => 'rw', isa => UpperCaseStr, coerce => 1 );
has lowercasestr => ( is => 'rw', isa => LowerCaseStr, coerce => 1 );
+ has numericcode => ( is => 'rw', isa => NumericCode, coerce => 1 );
}
my $ins = FooTest->new({
@@ -20,6 +27,7 @@
lowercasesimplestr => 'BAR',
uppercasestr => 'foo',
lowercasestr => 'BAR',
+ numericcode => '4111-1111-1111-1111',
});
is( $ins->uppercasesimplestr, 'FOO', 'uppercase str' );
@@ -27,3 +35,5 @@
is( $ins->uppercasestr, 'FOO', 'uppercase str' );
is( $ins->lowercasestr, 'bar', 'lowercase str' );
+
+is( $ins->numericcode, '4111111111111111', 'numeric code' );
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
