view release on metacpan or  search on metacpan

lib/EPL2/Pad.pm  view on Meta::CPAN

#Public Attributes
has continuous         => ( is => 'rw', isa => 'Bool',    default => 1, );
has number_sets        => ( is => 'rw', isa => Natural,   default => 1, );
has number_copies      => ( is => 'rw', isa => Natural,   default => 0, );
has clear_image_buffer => ( is => 'rw', isa => 'Bool',    default => 1, );
has height             => ( is => 'rw', isa => Padheight, default => 0, );
has width              => ( is => 'rw', isa => Padwidth,  default => 0, );

#Private Attributes
has commands => ( is => 'ro', isa => 'ArrayRef', default => sub { []; }, init_arg => undef, );

#Methods
method add_command( EPL2::Command $command ) {
    push @{ $self->commands }, $command;
}

method process () {
    my ( $needed_height, @com ) = ( $self->height );
    for my $com ( @{ $self->commands } ) {
        my $this_height = 0;