oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

reduce modules loaded by WebGUI::Paths

Browse source
This commit is contained in:
Graham Knop 2012-11-17 15:57:22 -05:00
parent 76b638ddb9
commit d71c8834b6
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Paths.pm
View file

@ -22,7 +22,7 @@ use Carp qw(croak);
use Cwd qw(realpath);
use File::Spec::Functions qw(catdir splitpath catpath splitpath updir catfile);
use Try::Tiny;
use namespace::autoclean -also => qr/^_/;
use namespace::clean;
=head1 NAME
@ -92,7 +92,6 @@ Returns the base directory for WebGUI auxiliary files.
=cut
BEGIN {
use Class::MOP;
my $root = realpath(catdir(
catpath((splitpath(__FILE__))[0,1], ''), (updir) x 2
));
@ -109,10 +108,10 @@ BEGIN {
share => catdir($root, 'share'),
defaultPSGI => catdir($root, 'share', 'site.psgi'),
);
my $meta = Class::MOP::Class->initialize(__PACKAGE__);
for my $sub (keys %paths) {
my $path = $paths{$sub};
$meta->add_method( $sub, sub { $path } );
no strict;
*{ $sub } = sub { $path };
}
}
@ -227,6 +226,7 @@ sub preloadAll {
});
}
no namespace::clean;
sub _readTextLines {
my $file = shift;
my @lines;
@ -241,5 +241,6 @@ sub _readTextLines {
}
return @lines;
}
use namespace::clean;
1;