Commits

Toby Inkster  committed 93b2713

copyright 2013

  • Participants
  • Parent commits 8f0d07d

Comments (0)

Files changed (4)

+=head1 PURPOSE
+
+Check that basic usage of MooX::late works.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2012-2013 by Toby Inkster.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;
 ok( not $o->has_foo );
 
 done_testing;
-
-=head1 PURPOSE
-
-Check that basic usage of MooX::late works.
-
-=head1 AUTHOR
-
-Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
-
-=head1 COPYRIGHT AND LICENCE
-
-This software is copyright (c) 2012 by Toby Inkster.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-

File t/02inflation.t

+=head1 PURPOSE
+
+Check that our type constraints are correctly inflated to Moose type
+constraints.
+
+This test is skipped if L<MooX::Types::MooseLike::Base> is unavailable.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2012-2013 by Toby Inkster.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;
 };
 
 done_testing;
-
-=head1 PURPOSE
-
-Check that our type constraints are correctly inflated to Moose type
-constraints.
-
-This test is skipped if L<MooX::Types::MooseLike::Base> is unavailable.
-
-=head1 AUTHOR
-
-Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
-
-=head1 COPYRIGHT AND LICENCE
-
-This software is copyright (c) 2012 by Toby Inkster.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-

File t/03invalid_tc.t

+=head1 PURPOSE
+
+Check that we get warnings about unrecognisable type constraints, but only
+when a value is actually tested against the constraint.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2012-2013 by Toby Inkster.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
+use strict;
+use warnings;
+
 use if !eval { require Test::Warn },
 	'Test::More', skip_all => 'requires Test::Warn';
 use Test::Warn;
 } [];
 
 done_testing;
-
-=head1 PURPOSE
-
-Check that we get warnings about unrecognisable type constraints, but only
-when a value is actually tested against the constraint.
-
-=head1 AUTHOR
-
-Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
-
-=head1 COPYRIGHT AND LICENCE
-
-This software is copyright (c) 2012 by Toby Inkster.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-

File t/04arrayofattrs.t

+=head1 PURPOSE
+
+Test that this works:
+
+	has \@attributes => (...);
+
+Specifically we test is for C<lazy_build> as that's a kinda interesting
+one.
+
+=head1 AUTHOR
+
+Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyright (c) 2012-2013 by Toby Inkster.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;
 is($o1->bar2, 'bar2');
 
 done_testing;
-
-=head1 PURPOSE
-
-Test that this works:
-
-	has \@attributes => (...);
-
-Specifically we test is for C<lazy_build> as that's a kinda interesting
-one.
-
-=head1 AUTHOR
-
-Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
-
-=head1 COPYRIGHT AND LICENCE
-
-This software is copyright (c) 2012 by Toby Inkster.
-
-This is free software; you can redistribute it and/or modify it under
-the same terms as the Perl 5 programming language system itself.
-