diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-12-19 17:03:51 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-12-19 17:03:51 -0600 |
| commit | 2c90a754cef560595b6b8b659804dfc5b6d817f8 (patch) | |
| tree | c31f863aadae1a4e384a0fc93ed45359f511f02b | |
| parent | 90afe019eae7483d3d8b9444489b44e603b77e76 (diff) | |
| download | moosex-module-refresh-2c90a754cef560595b6b8b659804dfc5b6d817f8.tar.gz moosex-module-refresh-2c90a754cef560595b6b8b659804dfc5b6d817f8.zip | |
use _pmfile_to_class to parallel the cmop function
| -rw-r--r-- | lib/MooseX/Module/Refresh.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/MooseX/Module/Refresh.pm b/lib/MooseX/Module/Refresh.pm index 20ec28b..748e5e6 100644 --- a/lib/MooseX/Module/Refresh.pm +++ b/lib/MooseX/Module/Refresh.pm @@ -24,7 +24,7 @@ MooseX::Module::Refresh - Module::Refresh for Moose classes =cut -sub _pm_file_to_mod { +sub _pmfile_to_class { my ($file) = @_; $file =~ s{\.pm$}{}; # XXX: is this correct on windows? @@ -60,12 +60,12 @@ after refresh_module => sub { my $self = shift; my ($modfile) = @_; $self->refresh_module(Class::MOP::_class_to_pmfile($_)) - for $self->find_dependent_packages(_pm_file_to_mod($modfile)); + for $self->find_dependent_packages(_pmfile_to_class($modfile)); }; after unload_module => sub { my $self = shift; - my $mod = _pm_file_to_mod($_[0]); + my $mod = _pmfile_to_class($_[0]); my $meta = Class::MOP::class_of($mod); return unless defined $meta; return unless $meta->isa('Moose::Meta::Class'); |