#!/usr/bin/perl

# workaround for dzil
package uniq_files;

use 5.010;
use strict;
use warnings;

use Log::Any::App;
use Sub::Spec::CmdLine qw(run);

our $VERSION = '0.02'; # VERSION

run(module => 'App::UniqFiles', sub=>'uniq_files');

1;
# ABSTRACT: Report or omit duplicate file contents


=pod

=head1 NAME

uniq_files - Report or omit duplicate file contents

=head1 VERSION

version 0.02

=head1 SYNOPSIS

 # list all files which do not have duplicate contents
 $ uniq-files *

 # list all files which have duplicate contents
 $ uniq-files -d *

 # list number of occurrences of contents for each file
 $ uniq-files -c *

=head1 DESCRIPTION

This is a simple script to report/omit files which have duplicate contents.
Think the B<uniq> Unix command, but for checking uniqueness of file contents.

=head1 SEE ALSO

B<uniq>, Unix command from which this program is inspired.

=head1 AUTHOR

Steven Haryanto <stevenharyanto@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Steven Haryanto.

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


__END__

