r26379 - in /branches/upstream/libmouse-perl/current: Changes MANIFEST SIGNATURE lib/Mouse.pm lib/ouse.pm t/000-load.t t/500_moose_extends_mouse.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Oct 30 19:14:46 UTC 2008
Author: gregoa
Date: Thu Oct 30 19:14:43 2008
New Revision: 26379
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=26379
Log:
[svn-upgrade] Integrating new upstream version, libmouse-perl (0.10)
Added:
branches/upstream/libmouse-perl/current/lib/ouse.pm
Modified:
branches/upstream/libmouse-perl/current/Changes
branches/upstream/libmouse-perl/current/MANIFEST
branches/upstream/libmouse-perl/current/SIGNATURE
branches/upstream/libmouse-perl/current/lib/Mouse.pm
branches/upstream/libmouse-perl/current/t/000-load.t
branches/upstream/libmouse-perl/current/t/500_moose_extends_mouse.t
Modified: branches/upstream/libmouse-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/Changes?rev=26379&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/Changes (original)
+++ branches/upstream/libmouse-perl/current/Changes Thu Oct 30 19:14:43 2008
@@ -1,4 +1,12 @@
Revision history for Mouse
+
+0.10 Tue Oct 28 19:23:07 2008
+ * Require a recent Moose (which has the bugfix) for
+ t/500_moose_extends_mouse.t
+
+ * ouse.pm for perl -Mouse one-liners (thanks rjbs)
+
+ * Doc for init_arg => undef (thanks rjbs)
0.09 Sun Sep 28 22:37:13 2008
* Initial version of Mouse::Tiny, a one-file concatenation of the Mouse
Modified: branches/upstream/libmouse-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/MANIFEST?rev=26379&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/MANIFEST (original)
+++ branches/upstream/libmouse-perl/current/MANIFEST Thu Oct 30 19:14:43 2008
@@ -17,6 +17,7 @@
lib/Mouse/Tiny.pm
lib/Mouse/TypeRegistry.pm
lib/Mouse/Util.pm
+lib/ouse.pm
lib/Squirrel.pm
lib/Squirrel/Role.pm
Makefile.PL
Modified: branches/upstream/libmouse-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/SIGNATURE?rev=26379&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/SIGNATURE (original)
+++ branches/upstream/libmouse-perl/current/SIGNATURE Thu Oct 30 19:14:43 2008
@@ -14,8 +14,8 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 f3e71317f0ad33f5f521eea9859966eb5e1d5312 Changes
-SHA1 5ca276f36570bac1c09133fb60042f28cfe9c1f4 MANIFEST
+SHA1 fdf000e147c658e0c71d4a67b53823a02d232948 Changes
+SHA1 a5e2f3617d68e03ef1cabecbfb2d7d056392e80e MANIFEST
SHA1 335359d8f94217d2bb2bb920142e2bb69f405cb4 META.yml
SHA1 8e9075a2329b302caa9794f77a3405cfb5dbae1f Makefile.PL
SHA1 09710b8a2741759c11d9a05652ecdd00b13b1df6 author/generate-mouse-tiny.pl
@@ -27,7 +27,7 @@
SHA1 ba005818ee9f97146bfa4e14e53c684e9e446902 inc/Module/Install/Metadata.pm
SHA1 85e6b1cf5b7ca81bfb469a99389fa947d4b8a08e inc/Module/Install/Win32.pm
SHA1 d32dff9f0d2f02023ca6d79a48d62fd855916351 inc/Module/Install/WriteAll.pm
-SHA1 13e5888e4800442d62a2b77762d187060f2334f3 lib/Mouse.pm
+SHA1 741b0cfbaed069bd164f84ec28dae8b34a37debb lib/Mouse.pm
SHA1 705e4fcc639495b4c5a647636d2f4f7198150914 lib/Mouse/Meta/Attribute.pm
SHA1 a19e7efdb27e298daca58fe71b06c4d8e3f9eeae lib/Mouse/Meta/Class.pm
SHA1 0236f03d46d8f3161c92114616e0b9928e724ef0 lib/Mouse/Meta/Role.pm
@@ -38,7 +38,8 @@
SHA1 2d807b64702ecc7f2543b40edc2835f80403efd8 lib/Mouse/Util.pm
SHA1 049e7ea6182380643756163589144bd87a27d817 lib/Squirrel.pm
SHA1 1ae78d672c07f05fec68290942d1094093019147 lib/Squirrel/Role.pm
-SHA1 a515fac6323f50c75a731eceede44e8103015d8a t/000-load.t
+SHA1 26b1f59f0c3edfd3f0a846af8050cf9831c22d9f lib/ouse.pm
+SHA1 583a272d6ea26231aef184e22b6d9c94d74377e1 t/000-load.t
SHA1 096660e32e1988e6fe7341b2050afab81c60bb03 t/000-recipes/001_point.t
SHA1 1e89ce7d73762782d42a0bb666f9bb644711797d t/001-strict.t
SHA1 b6bf566efa068afb392bb25d1497adc0f342dd09 t/002-warnings.t
@@ -81,7 +82,7 @@
SHA1 199e4d90651594b4a459562bb6261ca7787638e8 t/401-meta-role.t
SHA1 e30cce75bf65c8300eca00bc430bd3997f684b02 t/402-attribute-application.t
SHA1 05d0ebe3c8bafc9b0cc5363adfa9834ae6c88120 t/403-method-modifiers.t
-SHA1 d98a513fcbf1122e4bf5cccfd93f71fc0c9c7c5d t/500_moose_extends_mouse.t
+SHA1 a3238668bb0190b8818bfea62d185e19d68a9e41 t/500_moose_extends_mouse.t
SHA1 2e7f7f98574d85d60badc954085c921d6e514972 t/600-tiny-tiny.t
SHA1 15b7a10fc869cc014d8d173aa28bd9ae6a3101b2 t/601-tiny-mouse.t
SHA1 ef4636af45a9e6d08c0e9adede1c84871af5f068 t/602-mouse-tiny.t
@@ -90,7 +91,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.7 (Darwin)
-iD8DBQFI4ECFsxfQtHhyRPoRAoSUAKCFH5f3nZHdRsR2NkL/0lJT9CmBkwCcCV00
-ShWxiBRB/zI4Xa73pxV9H3I=
-=smFK
+iD8DBQFJB59EsxfQtHhyRPoRAlhiAJ0bD9V+nSVr+YJuJJThMaUnvgkuHACfQ/VT
+hZrrWxhol051+MU79b5H3Ug=
+=AO3E
-----END PGP SIGNATURE-----
Modified: branches/upstream/libmouse-perl/current/lib/Mouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/Mouse.pm?rev=26379&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/Mouse.pm (original)
+++ branches/upstream/libmouse-perl/current/lib/Mouse.pm Thu Oct 30 19:14:43 2008
@@ -4,7 +4,7 @@
use warnings;
use base 'Exporter';
-our $VERSION = '0.09';
+our $VERSION = '0.10';
use 5.006;
use Carp 'confess';
@@ -299,9 +299,10 @@
has a builder, then providing a value for the attribute in the constructor is
optional.
-=item init_arg => Str
-
-Allows you to use a different key name in the constructor.
+=item init_arg => Str | Undef
+
+Allows you to use a different key name in the constructor. If undef, the
+attribue can't be passed to the constructor.
=item default => Value | CodeRef
Added: branches/upstream/libmouse-perl/current/lib/ouse.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/lib/ouse.pm?rev=26379&op=file
==============================================================================
--- branches/upstream/libmouse-perl/current/lib/ouse.pm (added)
+++ branches/upstream/libmouse-perl/current/lib/ouse.pm Thu Oct 30 19:14:43 2008
@@ -1,0 +1,88 @@
+package ouse;
+
+use strict;
+use warnings;
+
+BEGIN {
+ my $package;
+ sub import {
+ $package = $_[1] || 'Class';
+ if ($package =~ /^\+/) {
+ $package =~ s/^\+//;
+ eval "require $package; 1" or die;
+ }
+ }
+ use Filter::Simple sub { s/^/package $package;\nuse Mouse;\n/; }
+}
+
+1;
+
+__END__
+
+=pod
+
+=head1 NAME
+
+ouse - syntactic sugar to make Mouse one-liners easier
+
+=head1 SYNOPSIS
+
+ # create a Mouse class on the fly ...
+ perl -Mouse=Foo -e 'has bar => ( is=>q[ro], default => q[baz] ); print Foo->new->bar' # prints baz
+
+ # loads an existing class (Mouse or non-Mouse)
+ # and re-"opens" the package definition to make
+ # debugging/introspection easier
+ perl -Mouse=+My::Class -e 'print join ", " => __PACKAGE__->meta->get_method_list'
+
+=head1 DESCRIPTION
+
+ouse.pm is a simple source filter that adds C<package $name; use Mouse;>
+to the beginning of your script and was entirely created because typing
+perl -e'package Foo; use Mouse; ...' was annoying me... especially after
+getting used to having C<-Moose> for Moose.
+
+=head1 INTERFACE
+
+ouse provides exactly one method and it's automically called by perl:
+
+=over 4
+
+=item B<import($package)>
+
+Pass a package name to import to be used by the source filter.
+
+=back
+
+=head1 DEPENDENCIES
+
+You will need L<Filter::Simple> and eventually L<Mouse>
+
+=head1 INCOMPATIBILITIES
+
+None reported. But it is a source filter and might have issues there.
+
+=head1 BUGS
+
+All complex software has bugs lurking in it, and this module is no
+exception. If you find a bug please either email me, or add the bug
+to cpan-RT.
+
+=head1 AUTHOR
+
+For all intents and purposes, blame:
+
+Chris Prather C<< <perigrin at cpan.org> >>
+
+...who wrote ouse.pm, which was adapted for use by Mouse by:
+
+Ricardo SIGNES C<< <rjbs at cpan.org> >>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright 2008 Shawn M Moore.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
Modified: branches/upstream/libmouse-perl/current/t/000-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/t/000-load.t?rev=26379&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/t/000-load.t (original)
+++ branches/upstream/libmouse-perl/current/t/000-load.t Thu Oct 30 19:14:43 2008
@@ -19,3 +19,12 @@
diag " $module_name: $version";
}
+no warnings 'uninitialized';
+
+eval { require Moose };
+diag " Class::MOP: $Class::MOP::VERSION";
+diag " Moose: $Moose::VERSION";
+
+eval { require Class::Method::Modifiers };
+diag " Class::Method::Modifiers: $Class::Method::Modifiers::VERSION";
+
Modified: branches/upstream/libmouse-perl/current/t/500_moose_extends_mouse.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmouse-perl/current/t/500_moose_extends_mouse.t?rev=26379&op=diff
==============================================================================
--- branches/upstream/libmouse-perl/current/t/500_moose_extends_mouse.t (original)
+++ branches/upstream/libmouse-perl/current/t/500_moose_extends_mouse.t Thu Oct 30 19:14:43 2008
@@ -5,7 +5,7 @@
use Test::More;
BEGIN {
- plan skip_all => "Moose required for this test" unless eval { require Moose };
+ plan skip_all => "Moose required for this test" unless eval { require Moose && Moose->VERSION('0.59') };
plan tests => 27;
}
More information about the Pkg-perl-cvs-commits
mailing list