Changeset 3302

Timestamp:

03/12/09 09:45:10 (3 years ago)

Author:

jquelin

Message:

removing unused modules

File:

• trunk/Padre/lib/Padre/Config.pm (modified) (8 diffs)

trunk/Padre/lib/Padre/Config.pm

@@ -14 +14 @@
 use warnings;
 
-use Carp                   ();
-use File::Spec             ();
-use File::Copy             ();
-use File::Path             ();
-use Params::Util           qw{ _POSINT _INSTANCE };
-use Padre::Config::Setting ();
-use Padre::Config::Human   ();
-use Padre::Config::Project ();
-use Padre::Config::Host    ();
-
+use Carp                     qw{ croak };
+use Params::Util             qw{ _POSINT _INSTANCE };
 use Padre::Config::Constants qw{ :stores :types $PADRE_CONFIG_DIR };
+use Padre::Config::Setting   ();
+use Padre::Config::Human     ();
+use Padre::Config::Project   ();
+use Padre::Config::Host      ();
+
 
 our $VERSION   = '0.28';
@@ -179 +176 @@
     my $human = shift;
     unless ( _INSTANCE($host, 'Padre::Config::Host') ) {
-        Carp::croak("Did not provide a host config to Padre::Config->new");
+        croak("Did not provide a host config to Padre::Config->new");
     }
     unless ( _INSTANCE($human, 'Padre::Config::Human') ) {
-        Carp::croak("Did not provide a user config to Padre::Config->new");
+        croak("Did not provide a user config to Padre::Config->new");
     }
 
@@ -192 +189 @@
         my $project = shift;
         unless ( _INSTANCE($project, 'Padre::Config::Project') ) {
-            Carp::croak("Did not provide a project config to Padre::Config->new");
+            croak("Did not provide a project config to Padre::Config->new");
         }
         $self->[$PROJECT] = $project;
@@ -207 +204 @@
     # Does the setting exist?
     my $setting = $SETTING{$name} or
-    Carp::croak("The configuration setting '$name' does not exist");
+    croak("The configuration setting '$name' does not exist");
 
     # All types are $ASCII-like
     unless ( defined $value and not ref $value ) {
-        Carp::croak("Missing or non-scalar value for setting '$name'");
+        croak("Missing or non-scalar value for setting '$name'");
     }
 
@@ -217 +214 @@
     my $type = $setting->type;
     if ( $type == $BOOLEAN and $value ne '1' and $value ne '0' ) {
-        Carp::croak("Tried to change setting '$name' to non-boolean '$value'");
+        croak("Tried to change setting '$name' to non-boolean '$value'");
     }
     if ( $type == $POSINT and not _POSINT($value) ) {
-        Carp::croak("Tried to change setting '$name' to non-posint '$value'");
+        croak("Tried to change setting '$name' to non-posint '$value'");
     }
     if ( $type == $INTEGER and not _INTEGER($value) ) {
-        Carp::croak("Tried to change setting '$name' to non-integer '$value'");
+        croak("Tried to change setting '$name' to non-integer '$value'");
     }
     if ( $type == $PATH and not -e $value ) {
-        Carp::croak("Tried to change setting '$name' to non-existant path '$value'");
+        croak("Tried to change setting '$name' to non-existant path '$value'");
     }
 
@@ -243 +240 @@
     # Does the setting exist?
     my $setting = $SETTING{$name} or
-    Carp::croak("The configuration setting '$name' does not exist");
+    croak("The configuration setting '$name' does not exist");
 
     return $DEFAULT{$name};
@@ -293 +290 @@
     my $object = Padre::Config::Setting->new(@_);
     if ( $SETTING{$object->{name}} ) {
-        Carp::croak("The $object->{name} setting is already defined");
+        croak("The $object->{name} setting is already defined");
     }
 
@@ -312 +309 @@
     eval $code; ## no critic
     if ( $@ ) {
-        Carp::croak("Failed to compile setting $object->{name}");
+        croak("Failed to compile setting $object->{name}");
     }