/usr/share/perl5/Test/Code/TidyAll.pm is in libcode-tidyall-perl 0.55~dfsg-2.
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 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 | package Test::Code::TidyAll;
use strict;
use warnings;
use Code::TidyAll;
use List::Compare;
use Test::Builder;
# Text::Diff has to be loaded before ::Table
use Text::Diff;
use Text::Diff::Table;
use Exporter qw(import);
our $VERSION = '0.55';
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 $files = delete $options{files};
my $ct = Code::TidyAll->new_from_conf_file(
$conf_file,
check_only => 1,
mode => 'test',
msg_outputter => \&_msg_outputter,
%options,
);
my @files;
if ($files) {
@files = List::Compare->new( $files, [ $ct->find_matched_files ] )->get_intersection;
}
else {
@files = $ct->find_matched_files;
}
unless (@files) {
$test->plan( tests => 1 );
$test->ok( 1, 'found no matching files for tidyall_ok' );
return;
}
$test->plan( tests => scalar(@files) );
foreach my $file (@files) {
my $desc = $ct->_small_path($file);
my $result = $ct->process_file($file);
$test->ok( $result->ok, "$desc is tidy" );
unless ( $result->ok ) {
$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
=encoding UTF-8
=head1 NAME
Test::Code::TidyAll - Check that all your files are tidy and valid according to
tidyall
=head1 VERSION
version 0.55
=head1 SYNOPSIS
In a file like 't/tidyall.t':
#!/usr/bin/perl
use Test::Code::TidyAll;
tidyall_ok();
=head1 DESCRIPTION
Uses L<Code::TidyAll>'s C<check_only> mode 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, we look for the 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>.
When invoking L<Code::TidyAll>, we pass C<<mode => 'test'>> by default; see
L<modes|tidyall/MODES>.
=head1 EXPORTS
This module exports one subroutine, which is exported by default:
=head2 tidyall_ok(...)
Most options given to this subroutine 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' );
By default, this subroutine will test every file that matches the config you
specify. However, you can pass a C<files> parameter as an array reference to
override this, in which case only the files you specify will be tested. These
files are still filtered based on the C<select> and C<exclude> rules defined in
your config.
=head1 SEE ALSO
L<tidyall>
=head1 SUPPORT
Bugs may be submitted through
L<https://github.com/houseabsolute/perl-code-tidyall/issues>.
I am also usually active on IRC as 'drolsky' on C<irc://irc.perl.org>.
=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 - 2016 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
|