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
66
67
68
69
70
71
72
73
74
75
76
|
## name RCS keywords in POD
## failures 0
## cut
=pod
$Revision: 1006 $
$Source$
$Date: 2006-12-03 00:23:19 -0600 (Sun, 03 Dec 2006) $
=cut
#-----------------------------------------------------------------------------
## name No RCS keywords at all
## failures 3
## cut
#just a comment
$foo = "bar";
$baz = qq{nuts};
#-----------------------------------------------------------------------------
## name Keywords in comments
## failures 0
## cut
# $Revision: 1006 $
# $Source$
# $Date: 2006-12-03 00:23:19 -0600 (Sun, 03 Dec 2006) $
#-----------------------------------------------------------------------------
## name Id in comments
## failures 0
## cut
# $Id$
END_PERL
#-----------------------------------------------------------------------------
## name Keywords in literals
## failures 0
## cut
'$Revision: 1006 $'
'$Source: foo/bar $'
'$Date: 2006-12-03 00:23:19 -0600 (Sun, 03 Dec 2006) $'
#-----------------------------------------------------------------------------
## name Keywords in literals, q{}-style
## failures 0
## cut
q{$Revision: 1006 $}
q{$Source: foo/bar $}
q{$Date: 2006-12-03 00:23:19 -0600 (Sun, 03 Dec 2006) $}
#-----------------------------------------------------------------------------
## name Keywords in literals, q{}-style, with parms
## failures 0
## parms {keywords => 'Revision Author Id'}
## cut
q{$Revision: 1006 $}
q{$Author: petdance $}
q{$Id: whatever $}
#-----------------------------------------------------------------------------
## name Empty code
## failures 1
## parms {keywords => 'Author Id'}
## cut
#nothing here!
$policy = 'Miscellanea::RequireRcsKeywords';
is( pcritique($policy, \$code, \%config), 1, $policy);
|
