This is an automated email from the git hooks/post-receive script. js pushed a commit to tag 0.043_03 in repository libtype-tiny-perl.
commit 5df25ac5e48ac994c16e48d9b3fde011360e90c3 Author: Toby Inkster <m...@tobyinkster.co.uk> Date: Sat Apr 26 16:01:05 2014 +0100 rename Types::Datetime to Example::Types because there is now really a Types::DateTime on CPAN --- examples/datetime-coercions.pl | 8 ++++---- lib/Type/Tiny/Manual/Libraries.pod | 19 ++++++++----------- 2 files changed, 12 insertions(+), 15 deletions(-) diff --git a/examples/datetime-coercions.pl b/examples/datetime-coercions.pl index 567ffc6..3a75398 100644 --- a/examples/datetime-coercions.pl +++ b/examples/datetime-coercions.pl @@ -4,7 +4,7 @@ =head1 PURPOSE -This example expands upon the Types::Datetime library defined in +This example expands upon the Example::Types library defined in L<Type::Tiny::Manual::Libraries>. It defines class types for L<DateTime> and L<DateTime::Duration> and some structured types for hashes that can be used to instantiate DateTime objects. It defines some coercions @@ -37,7 +37,7 @@ use warnings; use lib "lib", "../lib"; BEGIN { - package Types::Datetime; + package Example::Types; use Type::Library -base, @@ -76,7 +76,7 @@ BEGIN { from DatetimeHash, via { "DateTime"->new(%$_) }, from EpochHash, via { "DateTime"->from_epoch(%$_) }; - $INC{"Types/Datetime.pm"} = __FILE__; + $INC{"Example/Types.pm"} = __FILE__; }; BEGIN { @@ -84,7 +84,7 @@ BEGIN { use Moose; use Types::Standard qw( Str Int Num ); - use Types::Datetime qw( Datetime Duration ); + use Example::Types qw( Datetime Duration ); has name => ( is => "ro", diff --git a/lib/Type/Tiny/Manual/Libraries.pod b/lib/Type/Tiny/Manual/Libraries.pod index f9813a9..2f168ab 100644 --- a/lib/Type/Tiny/Manual/Libraries.pod +++ b/lib/Type/Tiny/Manual/Libraries.pod @@ -14,7 +14,7 @@ A type library is a collection of type constraints, optionally with coercions. The following is an example type library: - package Types::Datetime; + package Example::Types; use Type::Library -base, @@ -51,7 +51,7 @@ The following is an example type library: Here's a line by line description of what's going on in the type library. - package Types::Datetime; + package Example::Types; Type libraries are packages. It is recommended that re-usable type libraries be given a name in the C<< Types::* >> namespace. For application-specific @@ -64,7 +64,7 @@ the C<< MyApp::Types::* >> namespace. -declare => qw( Datetime DatetimeHash EpochHash ); The C<< -base >> part is used to establish inheritance. It makes -C<Types::Datetime> a child class of C<Type::Library>. +C<Example::Types> a child class of C<Type::Library>. Declaring the types we're going to define ahead of their definition allows us to use them as barewords later on. (Note that in code which I<uses> @@ -145,17 +145,14 @@ Use a custom types library just like you would L<Types::Standard>: packge MyClass; use Moose; use DateTime; - use Types::Datetime qw( Datetime ); # must import the custom type - # NOTE type spelling Datetime - # is different than - # class spelling DateTime + use Example::Types qw( Datetime ); # import the custom type + has 'sometime' => ( - is => 'rw', - isa => Datetime, - coerce => 1, + is => 'rw', + isa => Datetime, + coerce => 1, ); - =head1 ADVANCED TOPICS =head2 Messages -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtype-tiny-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits