From: John Napiorkowski <jjn1056@yahoo.com>
Date: Wed, 11 Jan 2012 14:31:08 +0000 (-0500)
Subject: removed pointless whitespace and fixed based caused by the fact I am returning undef... 
X-Git-Tag: 0.02^0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c9868b1c5a16fe3ed1954a7277c7c40fc5e39c64;p=gitmo%2FMooseX-Attribute-ENV.git

removed pointless whitespace and fixed based caused by the fact I am returning undef when I want to return nothing at all
---

diff --git a/lib/MooseX/Attribute/ENV.pm b/lib/MooseX/Attribute/ENV.pm
index 7430988..1f73156 100644
--- a/lib/MooseX/Attribute/ENV.pm
+++ b/lib/MooseX/Attribute/ENV.pm
@@ -14,38 +14,38 @@ MooseX::Attribute::ENV - Set default of an attribute to a value from %ENV
 The following is example usage for this attribute trait.
 
 	package MyApp::MyClass;
-	
+
 	use Moose;
 	use MooseX::Attribute::ENV;
-	
+
 	## Checks $ENV{username} and $ENV{USERNAME}
 	has 'username' => (
 		traits => ['ENV'],
 	);
-	
+
 	## Checks $ENV{GLOBAL_PASSWORD}
 	has 'password' => (
-		traits => ['ENV'], 
+		traits => ['ENV'],
 		env_key => 'GLOBAL_PASSWORD',
 	);
-	
+
 	## Checks $ENV{last_login}, $ENV{LAST_LOGIN} and then uses the default
 	has 'last_login' => (
 		traits => ['ENV'],
 		default => sub {localtime},
 	);
-	
-	## Checks $ENV{XXX_config_name} and $ENV{XXX_CONFIG_NAME}	
+
+	## Checks $ENV{XXX_config_name} and $ENV{XXX_CONFIG_NAME}
 	has 'config_name' => (
 		traits => ['ENV'],
 		env_prefix => 'XXX',
 	);
-	
-	## Checks $ENV{MyApp_MyClass_extra} and $ENV{MYAPP_MYCLASS_EXTRA}	
+
+	## Checks $ENV{MyApp_MyClass_extra} and $ENV{MYAPP_MYCLASS_EXTRA}
 	has 'extra' => (
 		traits => ['ENV'],
 		env_package_prefix => 1,
-	);	
+	);
 
 Please see the test cases for more detailed examples.
 
@@ -56,16 +56,16 @@ for an attribute to be populated from the %ENV hash.  So, for example if you
 have set the environment variable USERNAME = 'John' you can do:
 
 	package MyApp::MyClass;
-	
+
 	use Moose;
 	use MooseX::Attribute::ENV;
-	
+
 	has 'username' => (is=>'ro', traits=>['ENV']);
-	
+
 	package main;
-	
+
 	my $myclass = MyApp::MyClass->new();
-	
+
 	print $myclass->username; # STDOUT => 'John';
 
 This is basically similar functionality to something like:
@@ -152,37 +152,37 @@ Overload method so that we can assign the default to be what's in %ENV
 around '_process_options' => sub
 {
     my ($_process_options, $self, $name, $options) = (shift, @_);
-    
+
     ## get some stuff we need.
 	my $key = $options->{env_key} || $name;
 	my $default = $options->{default};
 	my $use_pp = $options->{env_package_prefix};
-	
+
 	## Make it lazy if we are using the package prefix option
 	if( defined $use_pp && $use_pp )
 	{
 		$options->{lazy} = 1;
 	}
-	
+
 	## Prepend any custom prefixes.
 	if($options->{env_prefix})
 	{
-		$key = join('_', ($options->{env_prefix}, $key));	
+		$key = join('_', ($options->{env_prefix}, $key));
 	}
-	
+
 	## override/update the default method for this attribute.
 	CHECK_ENV: {
-		
+
 		$options->{default} = sub {
-				
+
 			if(defined $use_pp && $use_pp)
 			{
 				my $class = blessed $_[0];
 				$class =~s/::/_/g;
-					
+
 				$key = join ('_', ($class, $key));
 			}
-			
+
 			## Wish we could use perl 5.10 given instead :)
 			if(defined $ENV{$key})
 			{
@@ -196,8 +196,6 @@ around '_process_options' => sub
 			{
 				return ref $default eq 'CODE' ? $default->(@_) : $default;
 			}
-				
-			return;
 		};
 	}
 
@@ -218,7 +216,7 @@ or through the web interface at:
 
 	L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=MooseX-Attribute-ENV>
 
-I will be notified, and then you'll automatically be notified of progress on 
+I will be notified, and then you'll automatically be notified of progress on
 your bug as I make changes.
 
 =head1 SUPPORT