File Coverage

blib/lib/sys.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

# #############################################################
# ### Generated by GenerateVarMap.PL.
# ###
# ### Please edit the master and *not* this file.
# ### Date of render: Fri Mar  7 13:15:44 2008
##############################################################

package sys;

use strict;
use warnings;
use version;
our $VERSION = qv('0.2');

use Carp 'confess';
use Scalar::Util 'blessed';

use Class::Dot::Meta::Method qw(
    install_sub_from_coderef
);

sub import {
    my ($this_class, @args) = @_;
    my $caller_class = caller 0;

    install_sub_from_coderef( sub {
            sys->new()
        } => ($caller_class, "sys")
    );
}


use Class::Dot2;
use sys::process;
use sys::input;
use sys::interpolation;
use sys::re::match;
use sys::os;
use sys::process::group;
use sys::process::user;
use sys::output;
use sys::format;
use sys::eval;
use sys::re;
{

    has "process"      => (isa => "sys::process");
    has "input"      => (isa => "sys::input");
    has "interpolation"      => (isa => "sys::interpolation");
    has "match"      => (isa => "sys::re::match");
    has "os"      => (isa => "sys::os");
    has "group"      => (isa => "sys::process::group");
    has "user"      => (isa => "sys::process::user");
    has "output"      => (isa => "sys::output");
    has "format"      => (isa => "sys::format");
    has "eval"      => (isa => "sys::eval");
    has "re"      => (isa => "sys::re");

    sub process {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("process")
            : sys::process->new();
    }
    sub input {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("input")
            : sys::input->new();
    }
    sub interpolation {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("interpolation")
            : sys::interpolation->new();
    }
    sub match {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("match")
            : sys::re::match->new();
    }
    sub os {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("os")
            : sys::os->new();
    }
    sub group {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("group")
            : sys::process::group->new();
    }
    sub user {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("user")
            : sys::process::user->new();
    }
    sub output {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("output")
            : sys::output->new();
    }
    sub format {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("format")
            : sys::format->new();
    }
    sub eval {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("eval")
            : sys::eval->new();
    }
    sub re {
        return defined $_[0] && blessed $_[0]
            ? $_[0]->__getattr__("re")
            : sys::re->new();
    }

    sub warnings {
                    if ($_[1]) {
                return $^W = $_[1];
            };

                return $^W; # SCALAR
    }
    sub executable_name {
                    if ($_[1]) {
                return $^W = $_[1];
            };

                return $^W; # SCALAR
    }
    sub stderr {

                return \*STDERR; # GLOB
    }
    sub accumulator {
                    if ($_[1]) {
                return $^A = $_[1];
            };

                return $^A; # SCALAR
    }
    sub exceptions_being_caught {
                    if ($_[1]) {
                return $^S = $_[1];
            };

                return $^S; # SCALAR
    }
    sub version {
                    if ($_[1]) {
                return $^V = $_[1];
            };

                return $^V; # SCALAR
    }
    sub arg {
                    if ($_[1]) {
                return $_ = $_[1];
            };

                return $_; # SCALAR
    }
    sub debugging {
                    if ($_[1]) {
                return $^D = $_[1];
            };

                return $^D; # SCALAR
    }
    sub basetime {
                    if ($_[1]) {
                return $^T = $_[1];
            };

                return $^T; # SCALAR
    }
    sub inplace_edit {
                    if ($_[1]) {
                return $^I = $_[1];
            };

                return $^I; # SCALAR
    }
    sub compiling {
                    if ($_[1]) {
                return $^C = $_[1];
            };

                return $^C; # SCALAR
    }
    sub stdout {

                return \*STDOUT; # GLOB
    }
    sub last_regexp_code_result {
                    if ($_[1]) {
                return $^R = $_[1];
            };

                return $^R; # SCALAR
    }
    sub perldb {
                    if ($_[1]) {
                return $^P = $_[1];
            };

                return $^P; # SCALAR
    }

}

1;

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
# End:
# vim: expandtab tabstop=4 shiftwidth=4 shiftround

__END__