#!/usr/bin/perl
use strict; use warnings; # Copyright 2009, Michael Allan.  Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Votorola Software"), to deal in the Votorola Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicence, and/or sell copies of the Votorola Software, and to permit persons to whom the Votorola Software is furnished to do so, subject to the following conditions: The preceding copyright notice and this permission notice shall be included in all copies or substantial portions of the Votorola Software. THE VOTOROLA SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE VOTOROLA SOFTWARE OR THE USE OR OTHER DEALINGS IN THE VOTOROLA SOFTWARE.
=pod

=head1 NAME

auto-edit - run files through the auto-editor

=head1 SYNOPSIS

votorola/b/auto-edit [I<FILE>]

=head1 DESCRIPTION

Runs I<FILE> through the auto-editor.  If no I<FILE> is specified, runs all source files
through the auto-editor.  Outputs the paths of each file that is actually modified.

=head1 CAVEAT

No backups are made.

=cut


{
    use Pod::Usage qw( pod2usage );
    my $file = shift;  scalar @ARGV and pod2usage( -verbose => 1 ); # and exits

    if( defined $file )
    {
        $file eq '--help' || $file eq '-?' and pod2usage( -verbose => 1 ); # and exits

        use votorola::b::AutoEditor qw( auto_edit );
        if( auto_edit( $file ))
        {
            print( $file . "\n" );
        }
    }
    else
    {
        use File::Find ();
        use votorola::b::AutoEditor qw( auto_edit_found auto_edit_custom );

        auto_edit_custom(); # if any

        my $from_dir = 'votorola';
        File::Find::find( {follow_fast=>1, no_chdir=>1, wanted=>sub
        {
            my $file = $File::Find::name;
            $file eq $from_dir . '/b/AutoEditor.pm' and return; # don't execute its example scripts

            auto_edit_found(); # edit the remainder, as usual
        }}, $from_dir );
    }
}