let basename remove the extension

mojolicious · Jan 29, 2017 · 4912cbc · 4912cbc
1 parent 334e72b
commit 4912cbc
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/lib/Mojolicious/Lite.pm b/lib/Mojolicious/Lite.pm
@@ -21,8 +21,7 @@ sub import {
   push @{"${caller}::ISA"}, 'Mojo';
 
   # Generate moniker based on filename
-  my $moniker = path($ENV{MOJO_EXE})->basename;
-  $moniker =~ s/\.(?:pl|pm|t)$//i;
+  my $moniker = path($ENV{MOJO_EXE})->basename('.pl', '.pm', '.t');
   my $app = shift->new(moniker => $moniker);
 
   # Initialize routes without namespaces