Skip to content

stop using use vars #48

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

stop using use vars #48

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 5 additions & 5 deletions lib/Date/Format.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,12 +5,11 @@
package Date::Format;

use strict;
use vars qw(@EXPORT @ISA $VERSION);
require Exporter;

$VERSION = "2.24";
@ISA = qw(Exporter);
@EXPORT = qw(time2str strftime ctime asctime);
our $VERSION = "2.24";
our @ISA = qw(Exporter);
our @EXPORT = qw(time2str strftime ctime asctime);

sub time2str ($;$$)
{
Expand Down Expand Up @@ -40,7 +39,8 @@ sub asctime (\@;$)

package Date::Format::Generic;

use vars qw($epoch $tzname);
our $epoch;
our $tzname;
use Time::Zone;
use Time::Local;

Expand Down
8 changes: 3 additions & 5 deletions lib/Date/Language.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4,11 +4,10 @@ package Date::Language;
use strict;
use Time::Local;
use Carp;
use vars qw($VERSION @ISA);
require Date::Format;

$VERSION = "1.10";
@ISA = qw(Date::Format::Generic);
our $VERSION = "1.10";
our @ISA = qw(Date::Format::Generic);

sub new
{
Expand All @@ -31,8 +30,7 @@ sub DESTROY {}

sub AUTOLOAD
{
use vars qw($AUTOLOAD);

our $AUTOLOAD;
if($AUTOLOAD =~ /::strptime\Z/o)
{
my $self = $_[0];
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Afar.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Afar;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "0.99";
our @ISA = qw(Date::Language);
our $VERSION = "0.99";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(Acaada Etleeni Talaata Arbaqa Kamiisi Gumqata Sabti);
@MoY = (
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Amharic.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Amharic;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.00";
our @ISA = qw(Date::Language);
our $VERSION = "1.00";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

if ( $] >= 5.006 ) {
@DoW = (
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Arabic.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,9 +1,9 @@
package Date::Language::Arabic;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.00";
our @ISA = qw(Date::Language);
our $VERSION = "1.00";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);
use utf8;

@DoW = qw(الأحد الاثنين الثلاثاء الأربعاء الخميس الجمعة السبت);
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Austrian.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Austrian;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@MoY = qw(J�nner Feber M�rz April Mai Juni
Juli August September Oktober November Dezember);
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Brazilian.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Brazilian;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(Domingo Segunda Ter�a Quarta Quinta Sexta S�bado);
@MoY = qw(Janeiro Fevereiro Mar�o Abril Maio Junho
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Chinese.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Chinese;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.00";
our @ISA = qw(Date::Language);
our $VERSION = "1.00";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(星期日 星期一 星期二 星期三 星期四 星期五 星期六);
@MoY = qw(一月 二月 三月 四月 五月 六月
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Chinese_GB.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Chinese_GB;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(������ ����һ ���ڶ� ������ ������ ������ ������);
@MoY = qw(һ�� ���� ���� ���� ���� ����
Expand Down
7 changes: 4 additions & 3 deletions lib/Date/Language/Czech.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,10 @@

package Date::Language::Czech;

use vars qw(@ISA @DoW @DoWs @MoY @MoYs @MoY2 @AMPM %MoY %DoW $VERSION);
@ISA = qw(Date::Language Date::Format::Generic);
$VERSION = "1.01";
use Date::Language ();
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@MoY = qw(leden �nor b�ezen duben kv�ten �erven �ervenec srpen z���
��jen listopad prosinec);
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Danish.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Danish;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@MoY = qw(Januar Februar Marts April Maj Juni
Juli August September Oktober November December);
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Dutch.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,9 +6,9 @@
package Date::Language::Dutch;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.02";
our @ISA = qw(Date::Language);
our $VERSION = "1.02";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@MoY = qw(januari februari maart april mei juni juli
augustus september oktober november december);
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/English.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::English;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
@MoY = qw(January February March April May June
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Finnish.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,9 +7,9 @@
package Date::Language::Finnish;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

# In Finnish, the names of the months and days are only capitalized at the beginning of sentences.
@MoY = map($_ . "kuu", qw(tammi helmi maalis huhti touko kes� hein� elo syys loka marras joulu));
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/French.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::French;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.04";
our @ISA = qw(Date::Language);
our $VERSION = "1.04";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(dimanche lundi mardi mercredi jeudi vendredi samedi);
@MoY = qw(janvier f�vrier mars avril mai juin
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Gedeo.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Gedeo;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "0.99";
our @ISA = qw(Date::Language);
our $VERSION = "0.99";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw( Sanbbattaa Sanno Masano Roobe Hamusse Arbe Qiddamme);
@MoY = (
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/German.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::German;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.02";
our @ISA = qw(Date::Language);
our $VERSION = "1.02";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@MoY = qw(Januar Februar M�rz April Mai Juni
Juli August September Oktober November Dezember);
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Greek.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -13,9 +13,9 @@ package Date::Language::Greek;

use utf8;
use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.00";
our @ISA = qw(Date::Language);
our $VERSION = "1.00";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = (
"\x{039a}\x{03c5}\x{03c1}\x{03b9}\x{03b1}\x{03ba}\x{03ae}",
Expand Down
7 changes: 4 additions & 3 deletions lib/Date/Language/Hungarian.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -46,9 +46,10 @@ Made available under the same terms as Perl itself.

use strict;
use warnings;
use base "Date::Language";
use vars qw( @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
$VERSION = "1.01";
use Date::Language ();
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(Vas�rnap H�tf� Kedd Szerda Cs�t�rt�k P�ntek Szombat);
@MoY = qw(Janu�r Febru�r M�rcius �prilis M�jus J�nius
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Icelandic.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Icelandic;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@MoY = qw(Jan�ar Febr�ar Mars Apr�l Ma� J�ni
J�li �g�st September Okt�ber N�vember Desember);
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Italian.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Italian;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@MoY = qw(Gennaio Febbraio Marzo Aprile Maggio Giugno
Luglio Agosto Settembre Ottobre Novembre Dicembre);
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Norwegian.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Norwegian;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@MoY = qw(Januar Februar Mars April Mai Juni
Juli August September Oktober November Desember);
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Occitan.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Occitan;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.04";
our @ISA = qw(Date::Language);
our $VERSION = "1.04";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(dimenge diluns dimars dimècres dijòus divendres dissabte);
@MoY = qw(genièr febrièr mars abrial mai junh
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Oromo.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Oromo;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "0.99";
our @ISA = qw(Date::Language);
our $VERSION = "0.99";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(Dilbata Wiixata Qibxata Roobii Kamiisa Jimaata Sanbata);
@MoY = qw(Amajjii Guraandhala Bitooteessa Elba Caamsa Waxabajjii
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Romanian.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Romanian;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@MoY = qw(ianuarie februarie martie aprilie mai iunie
iulie august septembrie octombrie noembrie decembrie);
Expand Down
7 changes: 4 additions & 3 deletions lib/Date/Language/Russian.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,10 @@

package Date::Language::Russian;

use vars qw(@ISA @DoW @DoWs @MoY @MoYs @MoY2 @AMPM %MoY %DoW $VERSION);
@ISA = qw(Date::Language Date::Format::Generic);
$VERSION = "1.01";
use Date::Language ();
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@MoY = qw(������ ������� ����� ������ ��� ���� ���� ������� �������� ������� ������ �������);
@MoY2 = qw(������ ������� ���� ������ ��� ���� ���� ������ �������� ������� ������ �������);
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Russian_cp1251.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Russian_cp1251;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(����������� ����������� ������� ����� ������� ������� �������);
@MoY = qw(������ ������� ���� ������ ��� ����
Expand Down
6 changes: 3 additions & 3 deletions lib/Date/Language/Russian_koi8r.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,9 +5,9 @@
package Date::Language::Russian_koi8r;

use Date::Language ();
use vars qw(@ISA @DoW @DoWs @MoY @MoYs @AMPM @Dsuf %MoY %DoW $VERSION);
@ISA = qw(Date::Language);
$VERSION = "1.01";
our @ISA = qw(Date::Language);
our $VERSION = "1.01";
our (@DoW, @DoWs, @MoY, @MoYs, @AMPM, @Dsuf, %MoY, %DoW);

@DoW = qw(����������� ����������� ������� ����� ������� ������� �������);
@MoY = qw(������ ������� ���� ������ ��� ����
Expand Down
Loading