From 2c90a754cef560595b6b8b659804dfc5b6d817f8 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sat, 19 Dec 2009 17:03:51 -0600 Subject: use _pmfile_to_class to parallel the cmop function --- lib/MooseX/Module/Refresh.pm | 6 +++--- 1 file 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'); -- cgit v1.2.3-54-g00ecf