#!/usr/bin/perl -w

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

use strict;

if (! eval {require PerlCAD::Main}) {
  if ($0 !~ m!^(.+)/bin/\w+$! || ! unshift(@INC, "$1/lib") || ! 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
