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