#!/usr/bin/perl -w

###----------------------------------------------------------------###
#  Copyright 2003 - Paul Seamons                                     #
#  Distributed under the GNU General Public License without warranty #
###----------------------------------------------------------------###

use strict;
BEGIN {
  my $dir = (__FILE__ =~ m{ ^ (.+) /(bin|blib/script)/\w+ $ }x)
    ? $1 : die "unknown path";
  if (-d "$dir/lib") {
    require lib;
    import lib "$dir/lib";
  }
}

if (! eval {require PerlCAD::Main}) {
  die "PerlCAD sources missing or improperly installed - $@";
}

PerlCAD::Main->main;

###----------------------------------------------------------------###

__END__

=head1 NAME

perlcad - The PerlCAD Qt based drafting system

=head1 SYNOPSIS

  perlcad [--commandline]

=head1 DESCRIPTION
  
  --commandline  Enables commands taken from commandline.

=head1 AUTHOR

Paul Seamons [perlcad] [@] [seamons.com]

=cut
