-
Notifications
You must be signed in to change notification settings - Fork 0
/
README
76 lines (56 loc) · 2.19 KB
/
README
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
NAME
Test::Whitespace - Check your dist for excess whitespace.
VERSION
version 0.0100
SYNOPSIS
Declarative
use Test::Whitespace (
scan_for => [
'eol', 'tab' , 'extra' => [
[ qr/\x504/, '\x504 {{err}}' ],
[ qr/){/, 'Untidyness {{err}}' ],
]
]
in => [ '/path/to/dir/' ],
types => sub { $_->perlmodule },
);
Automatically scans for \s+$ , \t and other extra regexen in all perl
modules in /path/to/dir.
Objective
use Test::More plan => 5;
# Import 2 Symbols for you.
use Test::Whitespace;
my $rs = WhitespaceRuleSet
->new
->tailing
->tabs
->add_rule( qr/\x504/, '\x504 {{err}}' )
->add_rule( qr/){/, 'Untidyness {{err}}' );
my @files = ( ... );
for ( @files ){
my $stat = $rs->test_file( $_ );
ok( $stat->[0] , "Test for $_ whitespace");
diag( $stat->[1] ) unless $stat->[0] ;
}
Works more or less the same, but with more control and doing it the hard
way.
PRIMARY AUDIENCE
This Module is intended for Author Testing and Release testing.
RATIONALE / PRIMARY AUDIENCE
There are many cases where Perl::Critic is useless to you:
* You have Non-Perl files that may be shipping with your dist
For example, ".js" files, ".yaml" files, ".json" files, ".html"
files.
* You don't care for any other critic policies.
You just want to keep whitespace consistent and repressed.
* You have your own weird regex you want to mandate.
And you never want to see that a string in your dist matches that
regex, and you really cant be arsed writing a full blown critic
policy and uploading it on CPAN for this one tiny case.
In all of the above cases, this module is for you.
AUTHOR
Kent Fredric <kentnl at cpan.org>
COPYRIGHT AND LICENSE
This software is copyright (c) 2009 by Kent Fredric.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.