Alt-IO-All-new

 view release on metacpan or  search on metacpan

inc/Pegex/Compiler.pm  view on Meta::CPAN

#-----------------------------------------------------------------------------#
sub to_yaml {
    require YAML::XS;
    my $self = shift;
    return YAML::XS::Dump($self->tree);
}

sub to_json {
    require JSON::XS;
    my $self = shift;
    return JSON::XS->new->utf8->canonical->pretty->encode($self->tree);
}

sub to_perl {
    my $self = shift;
    require Data::Dumper;
    no warnings 'once';
    $Data::Dumper::Terse = 1;
    $Data::Dumper::Indent = 1;
    $Data::Dumper::Sortkeys = 1;
    my $perl = Data::Dumper::Dumper($self->tree);

lib/Alt/IO/All/new.pod  view on Meta::CPAN

=pod

=for comment
DO NOT EDIT. This Pod was generated by Swim.
See http://github.com/ingydotnet/swim-pm#readme

=encoding utf8

=head1 NAME

Alt::IO::All::new - Alternate IO::All - The Rewrite

=for html
<a href="https://travis-ci.org/ingydotnet/alt-io-all-new-pm"><img src="https://travis-ci.org/ingydotnet/alt-io-all-new-pm.png" alt="alt-io-all-new-pm"></a>
<a href="https://coveralls.io/r/ingydotnet/alt-io-all-new-pm?branch=master"><img src="https://coveralls.io/repos/ingydotnet/alt-io-all-new-pm/badge.png" alt="alt-io-all-new-pm"></a>

=head1 SYNOPSIS

lib/IO/All.pod  view on Meta::CPAN

=pod

=for comment
DO NOT EDIT. This Pod was generated by Swim.
See http://github.com/ingydotnet/swim-pm#readme

=encoding utf8

=head1 NAME

IO::All - I Owe All to Larry Wall!

=for html
<a href="https://travis-ci.org/ingydotnet/alt-io-all-new-pm"><img src="https://travis-ci.org/ingydotnet/alt-io-all-new-pm.png" alt="alt-io-all-new-pm"></a>
<a href="https://coveralls.io/r/ingydotnet/alt-io-all-new-pm?branch=master"><img src="https://coveralls.io/repos/ingydotnet/alt-io-all-new-pm/badge.png" alt="alt-io-all-new-pm"></a>

=head1 SYNOPSIS

lib/IO/All/File.pm  view on Meta::CPAN

package IO::All::File;
use IO::All::Base;
extends 'IO::All::Filesys';

option 'utf8';

has handle => ();

# Upgrade from IO::All to IO::All::Dir
use constant upgrade_methods => [qw(file print)];

sub can_upgrade {
    my ($self, $object) = @_;
    my $location = $object->location;
    return if