view release on metacpan or  search on metacpan

author/format.pl  view on Meta::CPAN

    }

    method run() {
        my @files = `git -C $root_dir ls-files `;
        chomp @files;
        foreach my $f (@files) {
            if ( any { $f =~ $_ } @patterns ) {
                $self->format($f);
            }
        }
        say "Done $#files files.";
    }

    method format($file) {
        my $perltidyrc = File::Spec->catfile( $root_dir, '.perltidyrc' );

        my $error = Perl::Tidy::perltidy(
            source      => $file,
            destination => $file,
            perltidyrc  => $perltidyrc,
        );

lib/App/Gimei/Runner.pm  view on Meta::CPAN

            die
"Error: value $opts_ref->{n} invalid for option n (must be positive number)\n";
        }
    }

    method execute (@args) {
        my %opts;
        $self->_parse_option( \@args, \%opts );

        if ( $opts{version} ) {
            say "$App::Gimei::VERSION";
            return 0;
        }

        if ( $opts{help} ) {
            pod2usage( -input => ${$conf}{POD_FILE}, -exitval => 'noexit' );
            return 0;
        }

        if ( !@args ) {
            push @args, 'name:kanji';
        }

        #        my $parser     = App::Gimei::Parser->new( args => \@args );
        #        my $generators = $parser->parse();
        my $generators = App::Gimei::Parser::parse( \@args );

        _semantic_analysis($generators);

        foreach ( 1 .. $opts{n} ) {
            say join $opts{sep}, $generators->execute();
        }

        return 0;
    }

    #
    # class methods
    #

    sub _semantic_analysis ($generators) {