—package
Draft;
=head1 NAME
Draft - CAD directory-based file format demo
=head1 SYNOPSIS
This is just a demonstration, nobody in their right-mind would go
and create GUI CAD applications in perl.
=head1 DESCRIPTION
An implementation of "An open file format for Computer Aided Design (CAD)"
L<http://bugbear.blackfish.org.uk/~bruno/draft/>
=head1 USAGE
$Draft::PATH = '/path/to.drawing/';
Draft->Read;
The 'Draft' module itself is mainly used to bootstrap the
world-space that drawings are loaded into - This is accessible via
the package variable $Draft::WORLD.
=cut
use
strict;
use
warnings;
use
Draft::Drawing;
our
$VERSION
=
'0.06'
;
our
$WORLD
=
undef
;
our
$PATH
=
undef
;
sub
Read
{
$PATH
=~ s/\/*$/\//;
$WORLD
->{
$PATH
} = Draft::Drawing->new (
$PATH
)
unless
exists
$WORLD
->{
$PATH
};
$WORLD
->{
$PATH
}->Read;
}
1;