From 439e45e4d2ae4d410a4d6b27371b34ff0af5baa9 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 4 Aug 2010 11:50:11 +0200 Subject: [PATCH] DRY: "use parent" --- SL/Template/Excel.pm | 6 +----- SL/Template/HTML.pm | 5 +---- SL/Template/LaTeX.pm | 5 +---- SL/Template/OpenDocument.pm | 5 +---- SL/Template/PlainText.pm | 6 +----- SL/Template/XML.pm | 6 +----- 6 files changed, 6 insertions(+), 27 deletions(-) diff --git a/SL/Template/Excel.pm b/SL/Template/Excel.pm index 3ed7618ac..206e0437c 100644 --- 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 1fa725237..abca75c07 100644 --- 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 889ed0713..4377b6d0f 100644 --- 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 d0753a5ab..626d3c0bf 100644 --- 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 d5a734f3a..14d92e947 100644 --- 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 fbedf8476..2e5078587 100644 --- 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; -- 2.20.1