Padre::Plugin::LaTeX, fix for missing version & some :)

[bowtie]

As requested, relating to this afternoons irc, ;)

lib/Padre/Plugin/LaTeX.pm

@@ -4 +4 @@
 
 use warnings;
 use strict;
-
+our $VERSION = '0.110';
 use File::Spec::Functions qw{ catfile };
 
 use base 'Padre::Plugin';
@@ -15 +15 @@
 }
 
 sub padre_interfaces {
-    'Padre::Plugin' => 0.81, 'Padre::Document' => 0.81;
+    return (
+    'Padre::Plugin' => '0.86',
+    'Padre::Document' => '0.86',
+    'Padre::Wx::Main' => '0.86',
+    );
 }
 
 sub registered_documents {
@@ -194 +198 @@
     return;
 }
 
+#######
+# Clean up, Padre::Plugin,
+# POD out of date as of v0.84
+#######
+sub plugin_disable {
+    my $self = shift;
 
+    # Close the dialog if it is hanging around
+    if ( $self->{dialog} ) {
+        $self->{dialog}->Destroy;
+        $self->{dialog} = undef;
+    }
+
+    # Unload all our child classes
+    $self->unload('Padre::Document::LaTeX');
+    $self->unload('Padre::Document::BibTeX');
+
+    return 1;
+}
+
 1;
 __END__
 

[bowtie]

• Some Plugin will require a plugin_enable method,
  • Why because it's using an external resource, which is not being picked up via perl (M::I).
  • You can see this method has only been enabled for Ubuntu, it needs more os file locations adding.

#########
# We need plugin_enable
# as we have an external dependancy
#########
sub plugin_enable {

    my $pdflatex_exists = 0;
    
    # ToDo add other os locations
    # Ubuntu -> /usr/bin/
    my @directories = qw( /usr/bin/ );
    find(
        sub {
            if ( $_ eq 'pdflatex' ) {
                $pdflatex_exists = 1;
            }
        },
        @directories
    );

    return $pdflatex_exists;
}

From Padre::Plugin::LaTeX