view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    };
    (my $example_file = $main_file) =~ s!\.pm$!/Examples.pm!;
    my $examples = `$perl -w examples/gen_examples_pod.pl`;
    if ($examples) {
        warn "(Re)Creating $example_file\n";
        $examples =~ s/\r\n/\n/g;
        update_file( $example_file, $examples );
    };
};

sub update_file {
    my( $filename, $new_content ) = @_;
    my $content;
    if( -f $filename ) {
        open my $fh, '<', $filename
            or die "Couldn't read '$filename': $!";
        binmode $fh;
        local $/;
        $content = <$fh>;
    };

script/watchsheet.pl  view on Meta::CPAN

my ($file,@queries) = @ARGV;

my %watch_directory = map { ( -d $_ ? $_ : dirname($_)) => 1 }
                      grep { -e $_ }
                      @ARGV;

my $watcher = Filesys::Notify::Simple->new([
    sort keys %watch_directory,
]);

sub update_queries {
    warn $file;
    my $sheet = DBIx::Spreadsheet->new( file => $file );
    my $dbh = $sheet->dbh;

    my @eff_queries = map { -d ? glob "$_/*.sql" : $_ } @queries;

    for my $q (@eff_queries) {
        #warn $q;
        #eval {
            DBIx::RunSQL->run(