1
2
3
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
61
62
63
64
65
|
## name Basic passing
## failures 0
## cut
use 5.006_001;
require 5.006_001;
use Foo 1.0203;
require Foo 1.0203;
use Foo 1.0203 qw(foo bar);
require Foo 1.0203 qw(foo bar);
is( pcritique($policy, \$code), 0, $policy);
use lib '/usr/lib/perl5/vendor_perl/5.8.8'; # RT #30388
#-----------------------------------------------------------------------------
## name use failure
## failures 7
## cut
use 5.6.1;
use v5.6.1;
use Foo 1.2.3;
use Foo v1.2.3;
use Foo 1.2.3 qw(foo bar);
use Foo v1.2.3 qw(foo bar);
use Foo v1.2.3 ('foo', 'bar');
#-----------------------------------------------------------------------------
## name require failure
## failures 7
## cut
require 5.6.1;
require v5.6.1;
require Foo 1.2.3;
require Foo v1.2.3;
require Foo 1.2.3 qw(foo bar);
require Foo v1.2.3 qw(foo bar);
require Foo v1.2.3 ('foo', 'bar');
#-----------------------------------------------------------------------------
## name embedded comment - RT 44986
## failures 0
## cut
use Foo::Bar xyzzy => 1;
use Foo::Bar
# With Foo::Bar 1.2.3 we can use the 'plugh' option.
plugh => 1;
#-----------------------------------------------------------------------------
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# indent-tabs-mode: nil
# c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :
|
