r49992 - in /branches/upstream/libmousex-types-perl/current: Changes MANIFEST META.yml lib/MouseX/Types.pm lib/MouseX/Types/Mouse.pm t/000_compile.t t/005-predicate.t t/00_compile.t xt/perlcriticrc
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Jan 3 02:19:25 UTC 2010
Author: jawnsy-guest
Date: Sun Jan 3 02:19:19 2010
New Revision: 49992
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=49992
Log:
[svn-upgrade] Integrating new upstream version, libmousex-types-perl (0.04)
Added:
branches/upstream/libmousex-types-perl/current/t/000_compile.t
branches/upstream/libmousex-types-perl/current/t/005-predicate.t (with props)
Removed:
branches/upstream/libmousex-types-perl/current/t/00_compile.t
Modified:
branches/upstream/libmousex-types-perl/current/Changes
branches/upstream/libmousex-types-perl/current/MANIFEST
branches/upstream/libmousex-types-perl/current/META.yml
branches/upstream/libmousex-types-perl/current/lib/MouseX/Types.pm
branches/upstream/libmousex-types-perl/current/lib/MouseX/Types/Mouse.pm
branches/upstream/libmousex-types-perl/current/xt/perlcriticrc
Modified: branches/upstream/libmousex-types-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmousex-types-perl/current/Changes?rev=49992&op=diff
==============================================================================
--- branches/upstream/libmousex-types-perl/current/Changes (original)
+++ branches/upstream/libmousex-types-perl/current/Changes Sun Jan 3 02:19:19 2010
@@ -1,4 +1,9 @@
Revision history for Perl extension MouseX::Types
+
+0.04 Sun Jan 3 10:23:47 2010
+ - Add copyright information (RT #53013)
+ - Support type predicates
+ (e.g. "use MouseX::Types::Mouse qw(is_Int)")
0.03 Sun Dec 20 15:13:39 2009
- Shipped as a stable version
Modified: branches/upstream/libmousex-types-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmousex-types-perl/current/MANIFEST?rev=49992&op=diff
==============================================================================
--- branches/upstream/libmousex-types-perl/current/MANIFEST (original)
+++ branches/upstream/libmousex-types-perl/current/MANIFEST Sun Jan 3 02:19:19 2010
@@ -16,11 +16,12 @@
MANIFEST This list of files
META.yml
README
+t/000_compile.t
t/001-make_immutable.t
t/002-base.t
t/003-isa-or.t
t/004-parametarization.t
-t/00_compile.t
+t/005-predicate.t
xt/01_podspell.t
xt/02_perlcritic.t
xt/03_pod.t
Modified: branches/upstream/libmousex-types-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmousex-types-perl/current/META.yml?rev=49992&op=diff
==============================================================================
--- branches/upstream/libmousex-types-perl/current/META.yml (original)
+++ branches/upstream/libmousex-types-perl/current/META.yml Sun Jan 3 02:19:19 2010
@@ -27,4 +27,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/yappo/p5-mousex-types.git
-version: 0.03
+version: 0.04
Modified: branches/upstream/libmousex-types-perl/current/lib/MouseX/Types.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmousex-types-perl/current/lib/MouseX/Types.pm?rev=49992&op=diff
==============================================================================
--- branches/upstream/libmousex-types-perl/current/lib/MouseX/Types.pm (original)
+++ branches/upstream/libmousex-types-perl/current/lib/MouseX/Types.pm Sun Jan 3 02:19:19 2010
@@ -2,7 +2,7 @@
use 5.006_002;
use Mouse::Exporter; # turns on strict and warnings
-our $VERSION = '0.03';
+our $VERSION = '0.04';
use Mouse::Util::TypeConstraints ();
@@ -61,11 +61,12 @@
my $obj = Mouse::Util::TypeConstraints::find_type_constraint($fq_name)
|| Carp::croak(qq{"$name" is declared but not defined in $type_class});
- push @exporting, $name;
+ push @exporting, $name, 'is_' . $name;
no strict 'refs';
no warnings 'redefine';
- *{$type_class . '::' . $name} =$type_class->_generate_type($obj);
+ *{$type_class . '::' . $name} = $type_class->_generate_type($obj);
+ *{$type_class . '::is_' . $name} = $obj->_compiled_type_constraint;
}
my($import, $unimport) = Mouse::Exporter->build_import_methods(
@@ -123,6 +124,8 @@
1;
__END__
+=encoding utf-8
+
=head1 NAME
MouseX::Types - Organize your Mouse types in libraries
@@ -188,7 +191,7 @@
1;
-=head1 AUTHOR
+=head1 AUTHORS
Kazuhiro Osawa E<lt>yappo <at> shibuya <döt> plE<gt>
@@ -196,6 +199,8 @@
tokuhirom
+Goro Fuji
+
with plenty of code borrowed from L<MooseX::Types>
=head1 REPOSITORY
@@ -208,7 +213,10 @@
L<MooseX::Types>
-=head1 LICENSE
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2008-2009, Kazuhiro Osawa and partly based on MooseX::Types, which
+is (c) Robert Sedlacek.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
Modified: branches/upstream/libmousex-types-perl/current/lib/MouseX/Types/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmousex-types-perl/current/lib/MouseX/Types/Mouse.pm?rev=49992&op=diff
==============================================================================
--- branches/upstream/libmousex-types-perl/current/lib/MouseX/Types/Mouse.pm (original)
+++ branches/upstream/libmousex-types-perl/current/lib/MouseX/Types/Mouse.pm Sun Jan 3 02:19:19 2010
@@ -1,13 +1,12 @@
package MouseX::Types::Mouse;
-use strict;
-use warnings;
+use MouseX::Types;
use Mouse::Util::TypeConstraints ();
-use MouseX::Types;
use constant type_storage => {
map { $_ => $_ } Mouse::Util::TypeConstraints->list_all_builtin_type_constraints
};
+
1;
__END__
Added: branches/upstream/libmousex-types-perl/current/t/000_compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmousex-types-perl/current/t/000_compile.t?rev=49992&op=file
==============================================================================
--- branches/upstream/libmousex-types-perl/current/t/000_compile.t (added)
+++ branches/upstream/libmousex-types-perl/current/t/000_compile.t Sun Jan 3 02:19:19 2010
@@ -1,0 +1,5 @@
+use strict;
+use Test::More tests => 2;
+
+BEGIN { use_ok 'MouseX::Types' }
+BEGIN { use_ok 'MouseX::Types::Mouse' }
Added: branches/upstream/libmousex-types-perl/current/t/005-predicate.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmousex-types-perl/current/t/005-predicate.t?rev=49992&op=file
==============================================================================
--- branches/upstream/libmousex-types-perl/current/t/005-predicate.t (added)
+++ branches/upstream/libmousex-types-perl/current/t/005-predicate.t Sun Jan 3 02:19:19 2010
@@ -1,0 +1,30 @@
+use strict;
+use warnings;
+use Test::More tests => 12;
+
+use MouseX::Types::Mouse qw(is_Int is_ArrayRef);
+
+BEGIN{
+ package MyTypes;
+ use MouseX::Types -declare => ['ArrayRef2d'];
+
+ subtype ArrayRef2d, as 'ArrayRef[ArrayRef]';
+}
+
+MyTypes->import('is_ArrayRef2d');
+
+ok is_Int(10);
+ok is_Int('42');
+ok!is_Int(3.14);
+ok!is_Int(undef);
+
+ok is_ArrayRef([]);
+ok is_ArrayRef([10]);
+ok!is_ArrayRef(undef);
+ok!is_ArrayRef({});
+
+ok is_ArrayRef2d([[]]);
+ok!is_ArrayRef2d([10]);
+ok!is_ArrayRef2d(undef);
+ok!is_ArrayRef2d({});
+
Propchange: branches/upstream/libmousex-types-perl/current/t/005-predicate.t
------------------------------------------------------------------------------
svn:executable = *
Modified: branches/upstream/libmousex-types-perl/current/xt/perlcriticrc
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmousex-types-perl/current/xt/perlcriticrc?rev=49992&op=diff
==============================================================================
--- branches/upstream/libmousex-types-perl/current/xt/perlcriticrc (original)
+++ branches/upstream/libmousex-types-perl/current/xt/perlcriticrc Sun Jan 3 02:19:19 2010
@@ -1,2 +1,4 @@
[TestingAndDebugging::ProhibitNoStrict]
-allow=refs
+allow = refs
+[TestingAndDebugging::RequireUseStrict]
+equivalent_modules = Mouse::Exporter MouseX::Types
More information about the Pkg-perl-cvs-commits
mailing list