view release on metacpan or  search on metacpan

lib/Classic/Perl.pm  view on Meta::CPAN

93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
  split //, "smat";
  print join " ", @_; # prints "s m a t"
 
  no Classic::Perl;
  @_ = ();
  split //, "smat";
  print join " ", @_;
    # prints "s m a t" in perl 5.10.x; nothing in 5.12
 
  use Classic::Perl '$[';
  $[ = 1;
  print qw(a b c d)[2]; # prints "b"
 
  use Classic::Perl '$*';
  $* = 1;
  print "yes\n" if "foo\nbar" =~ /^bar/; # prints yes
 
=head1 DESCRIPTION
 
Classic::Perl restores some Perl features that have been deleted in the
latest versions. By 'classic' we mean as of perl 5.8.x.

t/arybase.t  view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
use Test::More tests => 24;
 
is(qw(a b c d e f)[4], "e");
is(substr("abcdef", 4, 1), "e");
 
use Classic::Perl qw($[);
 
is(qw(a b c d e f)[4], "e");
is(substr("abcdef", 4, 1), "e");
 
$[ = 2;
 
is(qw(a b c d e f)[4], "c");
is(substr("abcdef", 4, 1), "c");
 
{
 local $[ = 3;
 is(qw(a b c d e f)[4], "b");
 is(substr("abcdef", 4, 1), "b");
}
 
is(qw(a b c d e f)[4], "c");
is(substr("abcdef", 4, 1), "c");
 
{
 local $[ = 1;
 is(qw(a b c d e f)[4], "d");
 is(substr("abcdef", 4, 1), "d");
}
 
is(qw(a b c d e f)[4], "c");
is(substr("abcdef", 4, 1), "c");
 
{
 local($[) = 1;
 is(qw(a b c d e f)[4], "d");
 is(substr("abcdef", 4, 1), "d");
}
 
is(qw(a b c d e f)[4], "c");
is(substr("abcdef", 4, 1), "c");
 
{
 local $[ = 0;
 is(qw(a b c d e f)[4], "e");
 is(substr("abcdef", 4, 1), "e");
}
 
is(qw(a b c d e f)[4], "c");
is(substr("abcdef", 4, 1), "c");
 
$[ = 0;
 
is(qw(a b c d e f)[4], "e");
is(substr("abcdef", 4, 1), "e");
 
1;