DRY: "use parent"

diff --git a/SL/Template/Excel.pm b/SL/Template/Excel.pm
index 3ed7618..206e043 100644 (file)
--- a/SL/Template/Excel.pm
+++ b/SL/Template/Excel.pm
@@ -1,10 +1,6 @@
 package SL::Template::Excel;
 
-use SL::Template::Simple;
-
-use vars qw(@ISA);
-
-@ISA = qw(SL::Template::Simple);
+use parent qw(SL::Template::Simple);
 
 sub new {
   my $type = shift;

diff --git a/SL/Template/HTML.pm b/SL/Template/HTML.pm
index 1fa7252..abca75c 100644 (file)
--- a/SL/Template/HTML.pm
+++ b/SL/Template/HTML.pm
@@ -1,9 +1,6 @@
 package SL::Template::HTML;
 
-use SL::Template::LaTeX;
-
-use vars qw(@ISA);
-@ISA = qw(SL::Template::LaTeX);
+use parent qw(SL::Template::LaTeX);
 
 use strict;
 

diff --git a/SL/Template/LaTeX.pm b/SL/Template/LaTeX.pm
index 889ed07..4377b6d 100644 (file)
--- a/SL/Template/LaTeX.pm
+++ b/SL/Template/LaTeX.pm
@@ -1,9 +1,6 @@
 package SL::Template::LaTeX;
 
-use vars qw(@ISA);
-
-use SL::Template;
-@ISA = qw(SL::Template::Simple);
+use parent qw(SL::Template::Simple);
 
 use strict;
 

diff --git a/SL/Template/OpenDocument.pm b/SL/Template/OpenDocument.pm
index d0753a5..626d3c0 100644 (file)
--- a/SL/Template/OpenDocument.pm
+++ b/SL/Template/OpenDocument.pm
@@ -1,10 +1,9 @@
 package SL::Template::OpenDocument;
 
-use SL::Template::Simple;
+use parent qw(SL::Template::Simple);
 
 use Archive::Zip;
 use POSIX 'setsid';
-use vars qw(@ISA);
 
 use SL::Iconv;
 
@@ -14,8 +13,6 @@ use Cwd;
 # use File::Temp qw(:mktemp);
 use IO::File;
 
-@ISA = qw(SL::Template::Simple);
-
 use strict;
 
 sub new {

diff --git a/SL/Template/PlainText.pm b/SL/Template/PlainText.pm
index d5a734f..14d92e9 100644 (file)
--- a/SL/Template/PlainText.pm
+++ b/SL/Template/PlainText.pm
@@ -1,10 +1,6 @@
 package SL::Template::PlainText;
 
-use SL::Template::LaTeX;
-
-use vars qw(@ISA);
-
-@ISA = qw(SL::Template::LaTeX);
+use parent qw(SL::Template::LaTeX);
 
 use strict;
 

diff --git a/SL/Template/XML.pm b/SL/Template/XML.pm
index fbedf84..2e50785 100644 (file)
--- a/SL/Template/XML.pm
+++ b/SL/Template/XML.pm
@@ -1,10 +1,6 @@
 package SL::Template::XML;
 
-use SL::Template::HTML;
-
-use vars qw(@ISA);
-
-@ISA = qw(SL::Template::HTML);
+use parent qw(SL::Template::HTML);
 
 use strict;