view release on metacpan or  search on metacpan

lib/App/HPGL2Cadsoft.pm  view on Meta::CPAN

    my $point = shift();

    my $bbox = \$self->_bbox;
    
    $$bbox->min_y( $point->min_y() ) if ( $point->min_y() < $$bbox->min_y() );
    $$bbox->min_x( $point->min_x() ) if ( $point->min_x() < $$bbox->min_x() );
    $$bbox->max_y( $point->max_y() ) if ( $point->max_y() > $$bbox->max_y() );
    $$bbox->max_x( $point->max_x() ) if ( $point->max_x() > $$bbox->max_x() );

    # Safety check
    warn "Bbox not updated as expected" if ( !$$bbox->contains($point) );

}

sub _write_script {
    my $self = shift();
    
    my $fh = IO::File->new( "> " . $self->output_file );

    if ( defined $fh ) {
        # Generate the script header