sys::format

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

package sys::format;

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

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



use Class::Dot2;
{



    sub name {
                    if ($_[1]) {
                return $~ = $_[1];
            };
        
                return $~; # SCALAR        
    }
    sub line_break_characters {
                    if ($_[1]) {
                return $: = $_[1];
            };
        
                return $:; # SCALAR        
    }
    sub page_number {
                    if ($_[1]) {
                return $% = $_[1];
            };
        
                return $%; # SCALAR        
    }
    sub top_name {
                    if ($_[1]) {
                return $^ = $_[1];
            };
        
                return $^; # SCALAR        
    }
    sub lines_per_page {
                    if ($_[1]) {
                return $= = $_[1];
            };
        
                return $=; # SCALAR        
    }
    sub lines_left {
                    if ($_[1]) {
                return $- = $_[1];
            };
        
                return $-; # SCALAR        
    }
    sub format_formfeed {
                    if ($_[1]) {
                return $^L = $_[1];
            };
        
                return $^L; # SCALAR        
    }

}

1;

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

__END__