# $Id$
# $Source$
# $Author$
# $HeadURL$
# $Revision$
# $Date$
use Class::Dot2;
use devel::Generator::VarMap;
version "0.2";
class "sys" => varmap { qw(
arg $_
version $^V
accumulator $^A
compiling $^C
debugging $^D
inplace_edit $^I
perldb $^P
last_regexp_code_result $^R
exceptions_being_caught $^S
basetime $^T
warnings $^W
executable_name $^W
stdout \*STDOUT
stderr \*STDERR
)};
subclass "re" => varmap { qw(
matches \%+
)};
subclass "re::match" => varmap { qw(
last_paren $+
submatch_result $^N
match_start \@-
match_end \@+
)};
subclass "input" => varmap { qw(
line_number $.
record_separator $/
)};
subclass "output" => varmap { (qw(
autoflush $|
record_separator $\
),
field_separator => q{$,},
)};
subclass "interpolation" => varmap { qw(
list_separator $"
subscript_separator $;
)};
subclass "format" => varmap { qw(
page_number $%
lines_per_page $=
lines_left $-
name $~
top_name $^
line_break_characters $:
format_formfeed $^L
)};
subclass "os" => varmap { qw(
fd_max $^F
+name $^O
child_error $?
error $!
errno $!
extended_error $^E
)};
subclass "eval" => varmap { qw(
error $@
)};
subclass "process" => varmap { qw(
pid $$
uid $<
euid $>
gid $(
egid $)
name $0
)};
subclass "process::user" => varmap { qw(
real_id $<
effective_id $>
)};
subclass "process::group" => varmap { qw(
real_id $(
effective_id $)
)};