Yet Another CPAN Grep

Seis ( T/TO/TOKUHIROM/Seis-0.12.tar.gz, TOKUHIROM, 2013; MetaCPAN )

Seis/lib/Seis/CLI.pm ( view source; MetaCPAN )

ccessor
    accessors => {
        map { $_ => $_ } qw(
            dump_ast
            dump_ast_json
            dump_compiled
            compile_only
        )
    }
;

sub new {
    my $class = s

 \$self->{dump_compiled},
        'ast'       => \$self->{dump_ast},
        'ast-json'       => \$self->{dump_ast_json},
        'c'         => \$self->{compile_only},
    );

    if (defined $eval)

**\n";
        print "\n\n";
    }
    if ($self->dump_ast_json) {
        require JSON::PP;
        print "*** AST ***\n";
        print JSON::PP->new->pretty(1)->encode(Perl6::PVIP->new->parse_strin

Seis ( T/TO/TOKUHIROM/Seis-0.12.tar.gz, TOKUHIROM, 2013; MetaCPAN )

Seis/lib/Seis/Bool.pm ( view source; MetaCPAN )

ned $_[0]) ? false :
    (exists $bool_vals->{overload::StrVal($_[0])}) ? true : false;
}

sub TO_JSON { ${$_[0]} ? \1 : \0 }

sub isa {
    my ($self, $stuff) = @_;
    return UNIVERSAL::isa($self, $