Select Code to Download

package pizzle;

...
                     lazy      => 1,
                     predicate => 'has_Dbin'
                   );

# Diagnostic Attributes
has 'diagCCS' => ( is => 'rw',
...
                   builder => '_build_diagCFR',
                   predicate => 'has_diagCFR'
                 );

# Diagnostic Builders
sub _build_diagCCS {
...
    my $self = shift;
    return `"$self->{Dbin}"/GetParameter "$self->{Fverbose}" 2 1 7 1`;
}

# Methods
sub CleanDproc {
...
}

1;

#!/usr/bin/perl

...
    if ($piz->DiagCCS) { $keepgoing = 0; }

}