From: Karen Etheridge Date: Sun, 8 Sep 2013 23:56:20 +0000 (-0700) Subject: whitespace fixes X-Git-Tag: v1.003021~1^2~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-REPL.git;a=commitdiff_plain;h=afc8677b078de3f125147caf731bd298c8b6d04e;hp=e41f170c93f4a3abb291e3513e1032813b1dfa04 whitespace fixes --- diff --git a/lib/Devel/REPL/Overview.pod b/lib/Devel/REPL/Overview.pod index 2e643bf..2ded3f9 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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