DRY: "use parent"

diff --git a/SL/Template/Excel.pm b/SL/Template/Excel.pm
index 3ed7618ac15e057106d12dacaa30d47b809fcf71..206e0437c85b576c18461a1f3c0c7873689a9495 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 1fa7252379b3644aa4670168d168e5770ee9f45f..abca75c07e8b51455cbb6a7ddaddb358d17c6c83 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 889ed07130543b2351c0592c95fdd65b3da7bf99..4377b6d0f1611c1dbe9c811aadb105321b5e658c 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 d0753a5ab46043dae537a5d0ef5b84d27dd5c127..626d3c0bf7e5681c758a1cbd677b2ef3728e44e5 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 d5a734f3a903f4be25f4817b3bfa0b95eebe2287..14d92e947b0ae02724d25e53e11dbf13a1fe587e 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 fbedf84762e4cd572b97389c1534d0e08698e50d..2e507858725bf7d2473528a7292fad187ec91cf3 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;