small optimizations

mojolicious · Sep 10, 2013 · ccf0745 · ccf0745
1 parent cb7c669
commit ccf0745
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 7 deletions.
diff --git a/lib/Mojo/Home.pm b/lib/Mojo/Home.pm
@@ -49,10 +49,7 @@ sub lib_dir {
 sub list_files {
   my ($self, $dir) = @_;
 
-  # Files relative to directory
-  my $parts = $self->{parts} || [];
-  my $root = catdir @$parts;
-  $dir = catdir $root, split '/', ($dir || '');
+  $dir = catdir @{$self->{parts} || []}, split '/', ($dir // '');
   return [] unless -d $dir;
   my @files;
   find {

diff --git a/lib/Mojo/JSON.pm b/lib/Mojo/JSON.pm
@@ -75,7 +75,7 @@ sub decode {
     # Object
     elsif (m/\G\{/gc) { $ref = _decode_object() }
 
-    # Unexpected
+    # Invalid character
     else { _exception('Expected array or object') }
 
     # Leftover data
@@ -169,7 +169,7 @@ sub _decode_string {
   m!\G((?:(?:[^\x00-\x1f\\"]|\\(?:["\\/bfnrt]|u[0-9a-fA-F]{4})){0,32766})*)!gc;
   my $str = $1;
 
-  # Missing quote
+  # Invalid character
   unless (m/\G"/gc) {
     _exception('Unexpected character or invalid escape while parsing string')
       if m/\G[\x00-\x1f\\]/;
@@ -244,7 +244,7 @@ sub _decode_value {
   # Null
   return undef if m/\Gnull/gc;
 
-  # Invalid data
+  # Invalid character
   _exception('Expected string, array, object, number, boolean or null');
 }