# # This file is part of MooseX-MarkAsMethods # # This software is Copyright (c) 2011 by Chris Weyl. # # This is free software, licensed under: # # The GNU Lesser General Public License, Version 2.1, February 1999 # package MooseX::MarkAsMethods; { $MooseX::MarkAsMethods::VERSION = '0.15'; } # ABSTRACT: Mark overload code symbols as methods use warnings; use strict; use namespace::autoclean 0.12; use B::Hooks::EndOfScope; use Moose 0.94 (); use Moose::Util::MetaRole; use Moose::Exporter; # debugging #use Smart::Comments '###', '####'; { package MooseX::MarkAsMethods::MetaRole::MethodMarker; { $MooseX::MarkAsMethods::MetaRole::MethodMarker::VERSION = '0.15'; } use Moose::Role; use namespace::autoclean; sub mark_as_method { my $self = shift @_; $self->_mark_as_method($_) for @_; return; } sub _mark_as_method { my ($self, $method_name) = @_; do { warn "$method_name is already a method!"; return } if $self->has_method($method_name); my $code = $self->get_package_symbol({ name => $method_name, sigil => '&', type => 'CODE', }); do { warn "$method_name not found as a CODE symbol!"; return } unless defined $code; $self->add_method($method_name => $self->wrap_method_body( associated_metaclass => $self, name => $method_name, body => $code, ), ); return; } } my ($import) = Moose::Exporter->build_import_methods( install => [ qw{ init_meta unimport } ], class_metaroles => { class => ['MooseX::MarkAsMethods::MetaRole::MethodMarker'], }, role_metaroles => { role => ['MooseX::MarkAsMethods::MetaRole::MethodMarker'], }, ); sub import { #my ($class, @args) = @_; my $class = shift @_; # if someone is passing in Sub::Exporter-style initial hash, grab it my $exporter_opts; $exporter_opts = shift @_ if ref $_[0] && ref $_[0] eq 'HASH'; my %args = @_; #my $target = $exporter_opts->{into} if $exporter_opts; #$target ||= scalar caller; my $target = defined $exporter_opts && defined $exporter_opts->{into} ? $exporter_opts->{into} : scalar caller ; return if $target eq 'main'; #$class->init_meta(for_class => $target); my $do_autoclean = delete $args{autoclean}; on_scope_end { ### $target my $meta = Class::MOP::Class->initialize($target); ### metaclass: ref $meta my %methods = map { ($_ => 1) } $meta->get_method_list; my %symbols = %{ $meta->get_all_package_symbols('CODE') }; my @overloads = grep { /^\(/ } keys %symbols; ### %methods ### %symbols ### @overloads foreach my $overload_name (@overloads) { next if $methods{$overload_name}; ### marking as method: $overload_name $meta->mark_as_method($overload_name); $methods{$overload_name} = 1; delete $symbols{$overload_name}; } return; }; ### $do_autoclean namespace::autoclean->import(-cleanee => $target) if $do_autoclean; @_ = $exporter_opts ? ($exporter_opts, %args) : (%args); unshift @_, $class; ### @_ goto &$import; return; } 1; =pod =encoding utf-8 =head1 NAME MooseX::MarkAsMethods - Mark overload code symbols as methods =head1 VERSION This document describes version 0.15 of MooseX::MarkAsMethods - released May 30, 2012 as part of MooseX-MarkAsMethods. =head1 SYNOPSIS package Foo; use Moose; # mark overloads as methods and wipe other non-methods use MooseX::MarkAsMethods autoclean => 1; # define overloads, etc as normal use overload '""' => sub { shift->stringify }; package Baz; use Moose::Role; use MooseX::MarkAsMethods autoclean => 1; # overloads defined in a role will "just work" when the role is # composed into a class; they MUST use the anon-sub style invocation use overload '""' => sub { shift->stringify }; # additional methods generated outside Class::MOP/Moose can be marked, too use constant foo => 'bar'; __PACKAGE__->meta->mark_as_method('foo'); package Bar; use Moose; # order is important! use namespace::autoclean; use MooseX::MarkAsMethods; # ... =head1 DESCRIPTION MooseX::MarkAsMethods allows one to easily mark certain functions as Moose methods. This will allow other packages such as L to operate without blowing away your overloads. After using MooseX::MarkAsMethods your overloads will be recognized by L as being methods, and class extension as well as composition from roles with overloads will "just work". By default we check for overloads, and mark those functions as methods. If C is passed to import on using this module, we will invoke namespace::autoclean to clear out non-methods. =for Pod::Coverage init_meta =head1 TRAITS APPLIED Using this package causes a trait to be applied to your metaclass (for both roles and classes), that provides a mark_as_method() method. You can use this to mark newly generated methods at runtime (e.g. during class composition) that some other package has created for you. mark_as_method() is invoked with one or more names to mark as a method. We die on any error (e.g. name not in symbol table, already a method, etc). e.g. __PACKAGE__->meta->mark_as_method('newly_generated'); e.g. say you have some sugar from another package that creates accessors of some sort; you could mark them as methods via a method modifier: # called as __PACKAGE__->foo_generator('name', ...) after 'foo_generator' => sub { shift->meta->mark_as_method(shift); }; =head1 IMPLICATIONS FOR ROLES Using MooseX::MarkAsMethods in a role will cause Moose to track and treat your overloads like any other method defined in the role, and things will "just work". That's it. Except... note that due to the way overloads, roles, and Moose work, you'll need to use the coderef or anonymous subroutine approach to overload declaration, or things will not work as you expect. Remember, we're talking about _methods_ here, so we need to make it easy for L to find the right method. The easiest (and supported) way to do this is to create an anonymous sub to wrap the overload method. That is, this will work: # note method resolution, things will "just work" use overload '""' => sub { shift->stringify }; ...and this will not: use overload '""' => 'stringify'; ...and will result in an error message like: # wah-wah Can't resolve method "???" overloading """" in package "overload" =head1 CAVEATS =head2 Roles See the "IMPLICATIONS FOR ROLES" section, above. =head2 meta->mark_as_method() B CMOP/Moose are fairly good about determining what is and what isn't a method, but not perfect. Before using this method, you should pause and think about why you need to. =head2 namespace::autoclean As currently implemented, we run our "method maker" at the end of the calling package's compile scope (L). As L does the same thing, it's important that if namespace::autoclean is used that it be used BEFORE MooseX::MarkAsMethods, so that its end_of_scope block is run after ours. e.g. # yes! use namespace::autoclean; use MooseX::MarkAsMethods; # no -- overloads will be removed use MooseX::MarkAsMethods; use namespace::autoclean; The easiest way to invoke this module and clean out non-methods without having to worry about ordering is: use MooseX::MarkAsMethods autoclean => 1; =head1 SEE ALSO Please see those modules/websites for more information related to this module. =over 4 =item * L, L, L, L,|L, L, L, L,> =item * L.|L.> =item * L does allow for overload application from|L does allow for overload application from> =item * L =item * L'ed role) the symbols handing overloads during class|L'ed role) the symbols handing overloads during class> =item * L =item * L =back =head1 SOURCE The development version is on github at L and may be cloned from L =head1 BUGS Please report any bugs or feature requests on the bugtracker website https://github.com/RsrchBoy/moosex-markasmethods/issues When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. =head1 AUTHOR Chris Weyl =head1 COPYRIGHT AND LICENSE This software is Copyright (c) 2011 by Chris Weyl. This is free software, licensed under: The GNU Lesser General Public License, Version 2.1, February 1999 =cut __END__