From: Dave Rolsky Date: Wed, 14 Jul 2010 19:04:15 +0000 (-0500) Subject: dzilize X-Git-Tag: v0.06~6 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5177f5e0b8f4295623eba2f945e4bfce64a1e210;p=gitmo%2FMooseX-SemiAffordanceAccessor.git dzilize --- diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP deleted file mode 100644 index 3a5db97..0000000 --- a/MANIFEST.SKIP +++ /dev/null @@ -1,43 +0,0 @@ -# Avoid version control files. -^RCS -^CVS -,v$ -\.svn.* -^\.hg -^\.git - -# Avoid Makemaker generated and utility files. -^Makefile$ -^blib -^MakeMaker-\d -^pm_to_blib$ -^blibdirs$ -^MANIFEST\.SKIP$ - -# Avoid Module::Build generated and utility files. -^Build$ -^_build -^Build.bat$ - -# Avoid temp and backup files. -~$ -\.old$ -\.bak$ -\#$ -^\.# -\.rej$ -\.orig$ - -# Avoid Devel::Cover generated files -^cover_db - -# kwalitee.t junk -^Debian_CPANTS\.txt - -# Avoid tarballs -\.(?:tar|tgz|tar\.gz)$ - -^MooseX-SemiAffordanceAccessor- - -# No need to ship this -\.shipit diff --git a/lib/MooseX/SemiAffordanceAccessor.pm b/lib/MooseX/SemiAffordanceAccessor.pm index 8825503..9a7467b 100644 --- a/lib/MooseX/SemiAffordanceAccessor.pm +++ b/lib/MooseX/SemiAffordanceAccessor.pm @@ -3,40 +3,25 @@ package MooseX::SemiAffordanceAccessor; use strict; use warnings; -our $VERSION = '0.05'; - use Moose 0.84 (); use Moose::Exporter; use Moose::Util::MetaRole; use MooseX::SemiAffordanceAccessor::Role::Attribute; -# The main reason to use this is to ensure that we get the right value -# in $p{for_class} later. -Moose::Exporter->setup_import_methods(); - -sub init_meta { - shift; - my %p = @_; - - Moose->init_meta(%p); - - return Moose::Util::MetaRole::apply_metaclass_roles( - for_class => $p{for_class}, - attribute_metaclass_roles => - ['MooseX::SemiAffordanceAccessor::Role::Attribute'], - ); -} +Moose::Exporter->setup_import_methods( + class_metaroles => { + attribute => ['MooseX::SemiAffordanceAccessor::Role::Attribute'], + }, +); 1; +# ABSTRACT: Name your accessors foo() and set_foo() + __END__ =pod -=head1 NAME - -MooseX::SemiAffordanceAccessor - Name your accessors foo() and set_foo() - =head1 SYNOPSIS use MooseX::SemiAffordanceAccessor; @@ -60,10 +45,6 @@ attribute, then that attribute's naming scheme is left unchanged. The name "semi-affordance" comes from David Wheeler's Class::Meta module. -=head1 AUTHOR - -Dave Rolsky, C<< >> - =head1 BUGS Please report any bugs or feature requests to @@ -72,11 +53,4 @@ the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. -=head1 COPYRIGHT & LICENSE - -Copyright 2007-2008 Dave Rolsky, All Rights Reserved. - -This program is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - =cut diff --git a/lib/MooseX/SemiAffordanceAccessor/Role/Attribute.pm b/lib/MooseX/SemiAffordanceAccessor/Role/Attribute.pm index 5fca8bd..3d0ff09 100644 --- a/lib/MooseX/SemiAffordanceAccessor/Role/Attribute.pm +++ b/lib/MooseX/SemiAffordanceAccessor/Role/Attribute.pm @@ -34,10 +34,6 @@ no Moose::Role; 1; -=head1 NAME - -MooseX::SemiAffordanceAccessor::Role::Attribute - Names accessors in a semi-affordance style - =head1 SYNOPSIS Moose::Util::MetaRole::apply_metaclass_roles( @@ -52,16 +48,5 @@ This role applies a method modifier to the C<_process_options()> method, and tweaks the reader and writer parameters so that they follow the semi-affordance naming style. -=head1 AUTHOR - -Dave Rolsky, C<< >> - -=head1 COPYRIGHT & LICENSE - -Copyright 2007-2008 Dave Rolsky, All Rights Reserved. - -This program is free software; you can redistribute it and/or modify -it under the same terms as Perl itself. - =cut