cosmetic changes

PerlDancer · Jul 25, 2014 · aee46c3 · aee46c3
1 parent e341889
commit aee46c3
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/lib/Dancer/Config.pm b/lib/Dancer/Config.pm
@@ -225,12 +225,8 @@ sub load {
 sub load_settings_from_yaml {
     my ($file) = @_;
 
-    my $config;
-
-    eval { $config = YAML::LoadFile($file) };
-    if (my $err = $@ || (!$config)) {
-        confess "Unable to parse the configuration file: $file: $@";
-    }
+    my $config = eval { YAML::LoadFile($file) }
+        or confess "Unable to parse the configuration file: $file: $@";
 
     # groom the values of $config
     while( my ($k,$v) = each %$config ) {
@@ -239,7 +235,7 @@ sub load_settings_from_yaml {
 
     $SETTINGS = Hash::Merge::Simple::merge( $SETTINGS, $config );
 
-    return scalar(keys %$config);
+    return scalar keys %$config;
 }
 
 sub load_default_settings {