whitespace fixes

diff --git a/lib/Devel/REPL/Overview.pod b/lib/Devel/REPL/Overview.pod
index 2e643bf..2ded3f9 100644 (file)
--- a/lib/Devel/REPL/Overview.pod
+++ b/lib/Devel/REPL/Overview.pod
@@ -246,7 +246,7 @@ take a look at it:
       ### it is called on profile activation
       sub apply_profile {
         my ($self, $repl) = @_;
-       ### $self - no comments, $repl - current instance of Devel::REPL
+        ### $self - no comments, $repl - current instance of Devel::REPL
 
         $repl->load_plugin($_) for $self->plugins; ### load our plugins
       }

diff --git a/lib/Devel/REPL/Plugin/B/Concise.pm b/lib/Devel/REPL/Plugin/B/Concise.pm
index 5eceba2..95837ae 100644 (file)
--- a/lib/Devel/REPL/Plugin/B/Concise.pm
+++ b/lib/Devel/REPL/Plugin/B/Concise.pm
@@ -17,7 +17,7 @@ sub BEFORE_PLUGIN {
 sub AFTER_PLUGIN {
   my $self = shift;
 
-  my $prefix = $self->default_command_prefix; 
+  my $prefix = $self->default_command_prefix;
 
   $self->add_turtles_matcher(qr/^
     \#(concise) \s+
@@ -63,14 +63,14 @@ Devel::REPL::Plugin::B::Concise - B::Concise dumping of expression optrees
   repl> #concise -exec -terse {
   > foo => foo(),
   > }
-  COP (0x138b1e0) nextstate 
-  OP (0x13bd280) pushmark 
-  SVOP (0x138c6a0) const  PV (0xbbab50) "foo" 
-  OP (0x13bbae0) pushmark 
-  SVOP (0x13bcee0) gv  GV (0xbbb250) *Devel::REPL::Plugin::B::Concise::foo 
-  UNOP (0x13890a0) entersub [1] 
-  LISTOP (0x13ba020) anonhash 
-  UNOP (0x5983d0) leavesub [1] 
+  COP (0x138b1e0) nextstate
+  OP (0x13bd280) pushmark
+  SVOP (0x138c6a0) const  PV (0xbbab50) "foo"
+  OP (0x13bbae0) pushmark
+  SVOP (0x13bcee0) gv  GV (0xbbb250) *Devel::REPL::Plugin::B::Concise::foo
+  UNOP (0x13890a0) entersub [1]
+  LISTOP (0x13ba020) anonhash
+  UNOP (0x5983d0) leavesub [1]
 
 =head1 DESCRIPTION
 

diff --git a/lib/Devel/REPL/Plugin/CompletionDriver/INC.pm b/lib/Devel/REPL/Plugin/CompletionDriver/INC.pm
index a29ff8a..cdcf74f 100644 (file)
--- a/lib/Devel/REPL/Plugin/CompletionDriver/INC.pm
+++ b/lib/Devel/REPL/Plugin/CompletionDriver/INC.pm
@@ -101,7 +101,7 @@ around complete => sub {
     }
   };
 
-  # look through all of 
+  # look through all of
   INC: for (@INC)
   {
     my $path = $_;

diff --git a/lib/Devel/REPL/Plugin/DumpHistory.pm b/lib/Devel/REPL/Plugin/DumpHistory.pm
index 12070f6..c1d449d 100644 (file)
--- a/lib/Devel/REPL/Plugin/DumpHistory.pm
+++ b/lib/Devel/REPL/Plugin/DumpHistory.pm
@@ -6,7 +6,7 @@ use Devel::REPL::Plugin;
 use namespace::autoclean;
 
 ## Seems to be a sequence issue with requires
-# requires qw{ history }; 
+# requires qw{ history };
 
 around 'read' => sub {
   my $orig = shift;
@@ -60,7 +60,7 @@ the history.
 
 =head1 DESCRIPTION
 
-Plugin that adds the C<:dump> and C<:dump file_name> commands to the 
+Plugin that adds the C<:dump> and C<:dump file_name> commands to the
 repl which will print the history to STDOUT or append the history to the
 file given.
 

diff --git a/lib/Devel/REPL/Plugin/PPI.pm b/lib/Devel/REPL/Plugin/PPI.pm
index 30defb6..4f80f5e 100644 (file)
--- a/lib/Devel/REPL/Plugin/PPI.pm
+++ b/lib/Devel/REPL/Plugin/PPI.pm
@@ -37,7 +37,7 @@ Devel::REPL::Plugin::PPI - PPI dumping of Perl code
   PPI::Document
     PPI::Statement
       PPI::Token::Word    'Devel::REPL'
-        
+
   repl> #ppi {
   > warn $];
   > }

diff --git a/lib/Devel/REPL/Plugin/ShowClass.pm b/lib/Devel/REPL/Plugin/ShowClass.pm
index 7d9a3af..6388c5b 100644 (file)
--- a/lib/Devel/REPL/Plugin/ShowClass.pm
+++ b/lib/Devel/REPL/Plugin/ShowClass.pm
@@ -18,17 +18,17 @@ before 'eval' => sub {
 
 after 'eval' => sub {
     my $self = shift;
-    
+
     my @metas_to_show;
-    
+
     foreach my $class (Class::MOP::get_all_metaclass_names()) {
         unless (exists $self->metaclass_cache->{$class}) {
             push @metas_to_show => Class::MOP::get_metaclass_by_name($class)
         }
-    }    
-    
+    }
+
     $self->display_class($_) foreach @metas_to_show;
-    
+
     $self->update_metaclass_cache;
 };
 
@@ -38,33 +38,33 @@ sub update_metaclass_cache {
         $self->metaclass_cache->{$class} = (
             ("" . Class::MOP::get_metaclass_by_name($class))
         );
-    }    
+    }
 }
 
 sub display_class {
     my ($self, $meta) = @_;
     $self->print('package ' . $meta->name . ";\n\n");
     $self->print('extends (' . (join ", " => $meta->superclasses) . ");\n\n") if $meta->superclasses;
-    $self->print('with (' . (join ", " => map { $_->name } @{$meta->roles}) . ");\n\n") if $meta->can('roles');    
+    $self->print('with (' . (join ", " => map { $_->name } @{$meta->roles}) . ");\n\n") if $meta->can('roles');
     foreach my $attr (map { $meta->get_attribute($_) } $meta->get_attribute_list) {
         $self->print('has ' . $attr->name . " => (\n");
-        $self->print('    is => ' . $attr->_is_metadata . ",\n")  if $attr->_is_metadata;        
-        $self->print('    isa => ' . $attr->_isa_metadata . ",\n") if $attr->_isa_metadata;  
-        $self->print('    required => ' . $attr->is_required . ",\n") if $attr->is_required;                
-        $self->print('    lazy => ' . $attr->is_lazy . ",\n") if $attr->is_lazy;                        
-        $self->print('    coerce => ' . $attr->should_coerce . ",\n") if $attr->should_coerce;                        
-        $self->print('    is_weak_ref => ' . $attr->is_weak_ref . ",\n") if $attr->is_weak_ref;                                
-        $self->print('    auto_deref => ' . $attr->should_auto_deref . ",\n") if $attr->should_auto_deref;                                        
+        $self->print('    is => ' . $attr->_is_metadata . ",\n")  if $attr->_is_metadata;
+        $self->print('    isa => ' . $attr->_isa_metadata . ",\n") if $attr->_isa_metadata;
+        $self->print('    required => ' . $attr->is_required . ",\n") if $attr->is_required;
+        $self->print('    lazy => ' . $attr->is_lazy . ",\n") if $attr->is_lazy;
+        $self->print('    coerce => ' . $attr->should_coerce . ",\n") if $attr->should_coerce;
+        $self->print('    is_weak_ref => ' . $attr->is_weak_ref . ",\n") if $attr->is_weak_ref;
+        $self->print('    auto_deref => ' . $attr->should_auto_deref . ",\n") if $attr->should_auto_deref;
         $self->print(");\n");
         $self->print("\n");
     }
     foreach my $method_name ($meta->get_method_list) {
         next if $method_name eq 'meta'
              || $meta->get_method($method_name)->isa('Class::MOP::Method::Accessor');
-        $self->print("sub $method_name { ... }\n");        
-        $self->print("\n");        
+        $self->print("sub $method_name { ... }\n");
+        $self->print("\n");
     }
-    $self->print("1;\n");    
+    $self->print("1;\n");
 }
 
 1;

diff --git a/lib/Devel/REPL/Profile.pm b/lib/Devel/REPL/Profile.pm
index c86b2ed..007702f 100644 (file)
--- a/lib/Devel/REPL/Profile.pm
+++ b/lib/Devel/REPL/Profile.pm
@@ -11,17 +11,17 @@ Devel::REPL::Profile
 =head1 SYNOPSIS
 
  package Devel::REPL::Profile::MyProject;
- 
+
  use Moose;
  use namespace::autoclean;
- 
+
  with 'Devel::REPL::Profile';
- 
+
  sub apply_profile {
      my ($self, $repl) = @_;
      # do something here
  }
- 
+
  1;
 
 =head1 DESCRIPTION