package Catmandu::Fix::File;
use strict;
our $VERSION = "0.012";
use parent 'Exporter';
our @EXPORT;
@EXPORT = qw(
basename
dirname
file_size
human_byte_size
Condition::file_test
);
foreach my $fix (@EXPORT) {
eval <<EVAL; ## no critic
require Catmandu::Fix::$fix;
Catmandu::Fix::$fix ->import( as => '$fix' );
EVAL
die "Failed to use Catmandu::Fix::$fix\n" if $@;
}
1;
__END__
=head1 NAME
Catmandu::Fix::File - Catmandu fixes to check file attributes
=begin markdown
# STATUS
[](https://travis-ci.org/LibreCat/Catmandu-Fix-File)
[](https://coveralls.io/r/LibreCat/Catmandu-Fix-File)
[](http://cpants.cpanauthors.org/dist/Catmandu-Fix-File)
=end markdown
=head1 SYNOPSIS
use Catmandu::Fix::File;
# all fix functions are exported by default
=head1 DESCRIPTION
Catmandu::Fix::File includes the following L<Catmandu::Fix> functions:
=over
=item
L<Catmandu::Fix::basename>
=item
L<Catmandu::Fix::dirname>
=item
L<Catmandu::Fix::file_size>
=item
L<Catmandu::Fix::human_byte_size>
=item
L<Catmandu::Fix::Condition::file_test>
=back
=head1 AUTHOR
Nicolas Franck, C<< <nicolas.franck at ugent.be> >>
=head1 LICENSE AND COPYRIGHT
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See L<http://dev.perl.org/licenses/> for more information.
=cut