Changeset 12404

Timestamp:

08/30/10 08:06:05 (18 months ago)

Author:

zenogantner

Message:

Shell Script plugin: comment support, added

Location:

trunk/Padre-Plugin-ShellScript

Files:

• Changes (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/Padre/Document/ShellScript.pm (modified) (1 diff)
• lib/Padre/Plugin/ShellScript.pm (modified) (3 diffs)
• t/01-load.t (modified) (2 diffs)

trunk/Padre-Plugin-ShellScript/Changes

@@ -1 +1 @@
 0.02    to be released
         compatibility to newer versions of Padre (ZENOG)
+    added $VERSION variable (ZENOG)
+    comment support (ZENOG)
 
 0.01    2009.02.01

trunk/Padre-Plugin-ShellScript/Makefile.PL

@@ -2 +2 @@
 use inc::Module::Install;
 
-name           'Padre-Plugin-ShellScript';
-license        'perl';
-author         'Claudio Ramirez';
-all_from       'lib/Padre/Plugin/ShellScript.pm';
+name 'Padre-Plugin-ShellScript';
+license 'perl';
+author 'Claudio Ramirez';
+all_from 'lib/Padre/Plugin/ShellScript.pm';
 
-requires       'perl'                    => '5.008001';
-requires       'Exporter'                => 0;
-requires       'Padre'                   => '0.65';
-requires       'Class::Autouse'          => '1.26';
+requires 'perl'           => '5.008001';
+requires 'Exporter'       => 0;
+requires 'Padre'          => '0.65';
+requires 'Class::Autouse' => '1.26';
 
-test_requires  'Test::More'              => '0.47';
-test_requires  'Test::NeedsDisplay'      => '1.05';
-test_requires  'Test::NoWarnings'        => '0.084';
-no_index       'directory' => [ qw{ t xt eg share inc privinc} ];
+test_requires 'Test::More'         => '0.47';
+test_requires 'Test::NeedsDisplay' => '1.05';
+test_requires 'Test::NoWarnings'   => '0.084';
+no_index 'directory'               => [qw{ t xt eg share inc privinc}];
 
-homepage       'http://padre.perlide.org/';
-bugtracker     'http://padre.perlide.org/';
-repository     'http://svn.perlide.org/padre/trunk/Padre-Plugin-ShellScript';
+homepage 'http://padre.perlide.org/';
+bugtracker 'http://padre.perlide.org/';
+repository 'http://svn.perlide.org/padre/trunk/Padre-Plugin-ShellScript';
+
 #mailinglist    'http://mail.perlide.org/mailman/listinfo/padre-dev';
 
 is_padre_plugin; # authors: Install Module::Install::PadrePlugin
- 
+
 WriteAll;

trunk/Padre-Plugin-ShellScript/lib/Padre/Document/ShellScript.pm

@@ -6 +6 @@
 use Padre::Document ();
 
-our $VERSION = '0.27';
+our $VERSION = '0.02';
 our @ISA     = 'Padre::Document';
 
 sub get_command {
-        my $self     = shift;
-        my $debug    = shift;
+    my $self  = shift;
+    my $debug = shift;
 
-        # Check the file name
-        my $filename = $self->filename;
+    # TODO get shebang
 
-        my $dir = File::Basename::dirname($filename);
-        chdir $dir;
-        return $debug
-                ? qq{"sh" "-xv" "$filename"}
-                : qq{"sh" "$filename"};
+    # Check the file name
+    my $filename = $self->filename;
+
+    my $dir = File::Basename::dirname($filename);
+    chdir $dir;
+    return $debug
+        ? qq{"sh" "-xv" "$filename"}
+        : qq{"sh" "$filename"};
 }
 
-sub errstr {
-        # Empty placeholder
-        }
-
+sub comment_lines_str {
+    return '#';
+}
 
 1;
-# Copyright 2008-2009 The Padre development team as listed in Padre.pm.
+
+# Copyright 2008-2010 The Padre development team as listed in Padre.pm.
 # LICENSE
 # This program is free software; you can redistribute it and/or

trunk/Padre-Plugin-ShellScript/lib/Padre/Plugin/ShellScript.pm

@@ -5 +5 @@
 use 5.008;
 
+our $VERSION = '0.02';
+
 use base 'Padre::Plugin';
 use Class::Autouse 'Padre::Document::ShellScript';
@@ -10 +12 @@
 # The plugin name to show in the Plugin Manager and menus
 sub plugin_name {
-    'Shell Script Plugin';
+    'Shell Script';
 }
 
 # Declare the Padre interfaces this plugin uses
 sub padre_interfaces {
-    'Padre::Plugin'     => 0.43,
-      'Padre::Document' => 0.43,
-      'Padre::Wx::Main' => 0.43,
-      ;
+    'Padre::Plugin' => 0.43, 'Padre::Document' => 0.43, 'Padre::Wx::Main' => 0.43,;
 }
 
 sub registered_documents {
-    'application/x-shellscript' => 'Padre::Document::ShellScript',
-      ;
+    'application/x-shellscript' => 'Padre::Document::ShellScript',;
 }
 
 # The command structure to show in the Plugins menu
 sub menu_plugins_simple {
-    my $self = shift;
-    'Shell Script' => [ Information => sub { $self->info() }, ];
+    my $self = shift;
+    'Shell Script' => [ Information => sub { $self->info() }, ];
 }
 
 sub info {
-    my $self = shift;
+    my $self = shift;
 
-    # Generate the About dialog
-    my $about = Wx::AboutDialogInfo->new;
-    $about->SetName("Shell Script Plugin");
-    $about->SetDescription("Use the Run menu to run and debug shell scripts.");
+    # Generate the About dialog
+    my $about = Wx::AboutDialogInfo->new;
+    $about->SetName("Shell Script Plugin");
+    $about->SetDescription("Use the Run menu to run and debug shell scripts.");
 
-    # Show the About dialog
-    Wx::AboutBox($about);
+    # Show the About dialog
+    Wx::AboutBox($about);
 
-    return;
+    return;
 }
 1;
@@ -58 +56 @@
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2009 Claudio Ramirez all rights reserved.
+Copyright 2009-2010 Claudio Ramirez all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it

trunk/Padre-Plugin-ShellScript/t/01-load.t

@@ -2 +2 @@
 
 use strict;
+
 BEGIN {
     $|  = 1;
@@ -17 +18 @@
 ok( $] >= 5.008, 'Perl version is new enough' );
 
-use_ok( 'Wx'                             );
+use_ok('Wx');
 diag( "Tests find Wx: $Wx::VERSION " . Wx::wxVERSION_STRING() );
-use_ok( 'Padre::Plugin::ShellScript'      );
+use_ok('Padre::Plugin::ShellScript');