Changeset 8948 for lang/perl/Acme-DRYCopyPaste

Timestamp:

04/06/08 01:29:16 (8 months ago)

Author:

tomyhero

Message:

lang/perl/Acme-DRYCopyPaste : support synopsys

Files:

• lang/perl/Acme-DRYCopyPaste/trunk/lib/Acme/DRYCopyPaste.pm (modified) (4 diffs)

lang/perl/Acme-DRYCopyPaste/trunk/lib/Acme/DRYCopyPaste.pm

@@ -9 +9 @@
     my $self  = {};
     bless $self, $class;
+    return $self;
+}
+
+sub synopsys {
+    my $self = shift;
+
+    my $code = `perldoc -m $self->{module_name}`;
+    my $start
+        = index( $code, "\n=head1 SYNOPSIS" ) + length("\n=head1 SYNOPSIS");
+    my $end = index( $code, "\n=", $start + 1 );
+    my $scrape = substr( $code, $start, $end - $start );
+    $self->{scrape} = $scrape;
     return $self;
 }
@@ -24 +36 @@
     my $to   = shift;
 
-    my $code = `perldoc -m $self->{module_name}`;
-    my @data = split( "\n" , $code );
+    my $code   = `perldoc -m $self->{module_name}`;
+    my @data   = split( "\n", $code );
     my $scrape = '';
-    for ( my $i = $from -1 ; $i < $to ; $i++ ) {
+    for ( my $i = $from - 1; $i < $to; $i++ ) {
         $scrape .= $data[$i] . "\n";
     }
@@ -37 +49 @@
     my $self = shift;
     eval( $self->{scrape} );
+    warn $@;
 }
 
 1;
+
 =head1 NAME
 
@@ -49 +63 @@
  my $d = Acme::DRYCopyPaste->new();
  $d->module('Perl6::Say')->copy( 50, 52)->paste();
+ $d->synopsys->paste(); # it works but Perl6::Say SYNOPSYS generate error.
 
 =head1 DESCRIPTION