/usr/share/perl5/Test/Code/TidyAll.pm is in libcode-tidyall-perl 0.32~dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 | package Test::Code::TidyAll;
use Code::TidyAll;
use Test::Builder;
use Text::Diff;
use Text::Diff::Table;
use strict;
use warnings;
use base qw(Exporter);
our $VERSION = '0.32';
my $test = Test::Builder->new;
our @EXPORT_OK = qw(tidyall_ok);
our @EXPORT = @EXPORT_OK;
sub tidyall_ok {
my %options = @_;
my $conf_file = delete( $options{conf_file} );
if ( !$conf_file ) {
my @conf_names = Code::TidyAll->default_conf_names;
$conf_file = Code::TidyAll->find_conf_file( \@conf_names, "." );
}
$options{quiet} = 1 unless $options{verbose};
$test->diag("Using $conf_file for config")
if $options{verbose};
my $ct = Code::TidyAll->new_from_conf_file(
$conf_file,
check_only => 1,
mode => 'test',
msg_outputter => \&_msg_outputter,
%options,
);
my @files = $ct->find_matched_files;
$test->plan( tests => scalar(@files) );
foreach my $file (@files) {
my $desc = $ct->_small_path($file);
my $result = $ct->process_file($file);
if ( $result->ok ) {
$test->ok( 1, $desc );
}
else {
$test->ok( 0, $desc );
$test->diag( $result->error );
if ( $options{verbose} ) {
my $orig = $result->orig_contents;
my $new = $result->new_contents;
if ( defined $orig && defined $new ) {
$test->diag( diff( \$orig, \$new, { STYLE => 'Table' } ) );
}
}
}
}
}
sub _msg_outputter {
my $format = shift;
$test->diag( sprintf $format, @_ );
}
1;
# ABSTRACT: Check that all your files are tidy and valid according to tidyall
__END__
=pod
=head1 NAME
Test::Code::TidyAll - Check that all your files are tidy and valid according to
tidyall
=head1 VERSION
version 0.32
=head1 SYNOPSIS
In a file like 't/tidyall.t':
#!/usr/bin/perl
use Test::Code::TidyAll;
tidyall_ok();
=head1 DESCRIPTION
Uses L<tidyall --check-only|tidyall> to check that all the files in your
project are in a tidied and valid state, i.e. that no plugins throw errors or
would change the contents of the file. Does not actually modify any files.
By default, looks for config file C<tidyall.ini> or C<.tidyallrc> in the
current directory and parent directories, which is generally the right place if
you are running L<prove>.
Passes mode = "test" by default; see L<modes|tidyall/MODES>.
C<tidyall_ok> is exported by default. Any options will be passed along to the
L<Code::TidyAll> constructor. For example, if you don't want to use the tidyall
cache and instead check all files every time:
tidyall_ok(no_cache => 1);
or if you need to specify the config file:
tidyall_ok(conf_file => '/path/to/conf/file');
=head1 SEE ALSO
L<tidyall>
=head1 AUTHORS
=over 4
=item *
Jonathan Swartz <swartz@pobox.com>
=item *
Dave Rolsky <autarch@urth.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 - 2015 by Jonathan Swartz.
This is free software; you can redistribute it and/or modify it under the same
terms as the Perl 5 programming language system itself.
=cut
|