Commits

Toby Inkster committed b0d3180

document test cases; whitespace formatting;etc

Comments (0)

Files changed (11)

lib/Method/Generate/ClassAccessor.pm

 
 =head1 DESCRIPTION
 
-For an idea of how this works, see the very fine documentation for
-L<Method::Generate::Accessor>.
+This class inherits from L<Method::Generate::Accessor>; see the very fine
+documentation for that module.
+
+This class overrides the following methods:
+
+=over
+
+=item C<generate_method>
+
+=item C<_generate_simple_get>
+
+=item C<_generate_core_set>
+
+=item C<_generate_simple_has>
+
+=item C<_generate_simple_clear>
+
+=back
 
 =head1 BUGS
 

lib/MooX/ClassAttribute/HandleMoose.pm

 		my ($me, $target, $args) = @_;
 		my $meta = $args->[0];
 		
-		eval { require MooseX::ClassAttribute } or do {
-			carp <<WARNING unless $warning++; return;
+		eval { require MooseX::ClassAttribute }
+			or do { carp <<WARNING unless $warning++; return };
 ***
 *** MooX::ClassAttribute and Moose, but MooseX::ClassAttribute is not
 *** available. It is strongly recommended that you install this module.
 ***
 WARNING
-		};
-		
+	
+	1;#meh
 		require Moose::Util::MetaRole;
 		if ( is_role($meta->name) )
 		{
+=head1 PURPOSE
+
+Check L<MooX::ClassAttribute> compiles.
+
+=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.
+
+=cut
+
 use Test::More;
 
 package Local::XXX;
+=head1 PURPOSE
+
+Test C<class_has> in classes.
+
+=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.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;
+=head1 PURPOSE
+
+Test C<class_has> in roles.
+
+=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.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;

t/10class_moose.t

+=head1 PURPOSE
+
+Test C<class_has> in classes, with inflation to Moose.
+
+Check introspection.
+
+=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.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;
+=head1 PURPOSE
+
+Test C<class_has> in roles, with inflation to Moose.
+
+Check introspection.
+
+=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.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;
+=head1 PURPOSE
+
+Test C<on_application> hook from L<MooX::CaptainHook>.
+
+=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.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;

t/21hook_appl_moose.t

+=head1 PURPOSE
+
+Test Moose interaction with C<on_application> hook from L<MooX::CaptainHook>.
+
+=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.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;
+=head1 PURPOSE
+
+Test C<on_inflation> hook from L<MooX::CaptainHook>.
+
+=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.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;
 {
 	package Boo;
 	use Moo::Role;
-	use MooX::CaptainHook qw( on_inflation );	
+	use MooX::CaptainHook qw( on_inflation );
 	on_inflation {
 		push @inflated, sprintf("%s (%s)", $_->name, $_->isa('Moose::Meta::Role')?'Role':'Class');
 	};
+=head1 PURPOSE
+
+Test basic L<Method::Generate::ClassAccessor> functionality.
+
+=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.
+
+=cut
+
 use strict;
 use warnings;
 use Test::More;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.