view release on metacpan or  search on metacpan

lib/App/Test/Generator/LCSAJ.pm  view on Meta::CPAN

    my $dot="digraph cfg {\n";
    for my $b (@$blocks) {
        for my $e (@{ $b->{edges} }) { $dot.="  $b->{id} -> $e;\n" }
    }
    $dot.="}\n";
}

sub _save_lcsaj {
    my ($file,$dir,$paths)=@_;
    make_path($dir) unless -d $dir;
    my $out = File::Spec->catfile($dir, (split m{/}, $file)[-1] . '.lcsaj.json');
    open my $fh, '>', $out or die $!;
    print $fh encode_json($paths);
    close $fh;
}

sub _save_dot {
    my ($file,$dir,$dot)=@_;
    make_path($dir) unless -d $dir;
    my $out = File::Spec->catfile($dir, (split m{/}, $file)[-1] . '.lcsaj.dot');
    open my $fh, '>', $out or die $!;
    print $fh $dot;
    close $fh;
}

1;

scripts/generate_index.pl  view on Meta::CPAN

use HTTP::Tiny;
use Readonly;
use Time::HiRes qw(sleep);
use URI::Escape qw(uri_escape);
use version;
use WWW::RT::CPAN;

my ($github_user, $github_repo);

if (my $repo = $ENV{GITHUB_REPOSITORY}) {
	($github_user, $github_repo) = split m{/}, $repo, 2;
} else {
	die 'What repo are you?';
}

my $package_name = $github_repo;
$package_name =~ s/\-/::/g;

Readonly my %config => (
	github_user => 'nigelhorne',
	github_repo => $github_repo,