# New Ticket Created by (Peter J. Acklam) # Please include the string: [perl #81840] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=81840 > --- cpan/Module-Pluggable/lib/Module/Pluggable.pm | 2 +- .../lib/Module/Pluggable/Object.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cpan/Module-Pluggable/lib/Module/Pluggable.pm b/cpan/Module-Pluggable/lib/Module/Pluggable.pm index bbdb49b..a3c4565 100644 --- a/cpan/Module-Pluggable/lib/Module/Pluggable.pm +++ b/cpan/Module-Pluggable/lib/Module/Pluggable.pm @@ -124,7 +124,7 @@ core code. For that, you might do something like ... .. and all the plugins will get a chance in turn to look at it. -This can be trivally extended so that plugins could save the email +This can be trivially extended so that plugins could save the email somewhere and then no other plugin should try and do that. Simply have it so that the C<examine> method returns C<1> if it has saved the email somewhere. You might also wnat to be paranoid diff --git a/cpan/Module-Pluggable/lib/Module/Pluggable/Object.pm b/cpan/Module-Pluggable/lib/Module/Pluggable/Object.pm index e0ee993..0da5085 100644 --- a/cpan/Module-Pluggable/lib/Module/Pluggable/Object.pm +++ b/cpan/Module-Pluggable/lib/Module/Pluggable/Object.pm @@ -73,7 +73,7 @@ sub plugins { $plugins{$_} = 1; } - # are we instantiating or requring? + # are we instantiating or requiring? if (defined $self->{'instantiate'}) { my $method = $self->{'instantiate'}; return map { ($_->can($method)) ? $_->$method(@_) : () } keys %plugins; -- 1.7.3.3