File Coverage

lib/Draft.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch	0	2	0.0
condition			n/a
subroutine	3	4	75.0
pod	0	1	0.0
total	12	19	63.1

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

=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;