Commits

Burak Gürsoy committed fa1c227

Kill more legacy stuff

  • Participants
  • Parent commits eee261a
  • Tags v0.85

Comments (0)

Files changed (4)

File eg/precompile.pl

 ########################################################################
 use strict;
 use warnings;
-use vars qw( $VERSION );
 use Cwd;
 use File::Find;
 use File::Spec::Functions qw( catfile );
 use Text::Template::Simple;
 
-$VERSION = '0.10';
+our $VERSION = '0.10';
 
 my $source_dir = '/full/path/to/original/templates';
 my $cache_dir  = '/full/path/to/cache/directory';

File t/031-capture-warnings.t

 
 ok( my $got = $t->compile(q/Warn<%= my $r %>this/), 'Compile' );
 
-my $w = 'Warnthis[warning] Use of uninitialized value';
-my $want = LEGACY_PERL
-         ? "$w at <ANON> line 1.\n"
-         : "$w in concatenation (.) or string at <ANON> line 1.\n"
-         ;
+my $w    = 'Warnthis[warning] Use of uninitialized value';
+my $want = "$w in concatenation (.) or string at <ANON> line 1.\n";
 
 is( $got, $want, 'Warning captured' );
 package My;
 use strict;
 use warnings;
-use vars qw($VERSION);
 
-$VERSION = '0.2';
+our $VERSION = '0.20';
 
 package Text::Template::Simple::Dummy;
 use strict;

File t/lib/MyUtil.pm

 package MyUtil;
 use strict;
 use warnings;
-use vars qw( $VERSION @EXPORT );
 use base qw( Exporter );
-use constant LEGACY_PERL => $] < 5.006;
 
-$VERSION = '0.10';
-@EXPORT  = qw( _p LEGACY_PERL );
+our $VERSION = '0.10';
+our @EXPORT  = qw( _p );
 
 sub _p { ## no critic (ProhibitUnusedPrivateSubroutines)
     my @args = @_;