Ok, the message isn't crytic but the obvious solution isn't working. I'm getting "Ablation.pm did not return a true value..." All my attempts to RTFM point to "Put in a 1;" but I knew that as you can see in the code below (sans extraneous sub-verbage). This is my first foray into using inheritance. Could that be related?

Thanks

package Ablation;
use Exporter;
#use Tie::File::AsHash;
use Math::Trig;
use Image::Magick;
use Lens;
use Cloud;
#This package actually maintains a list of all the spots fired during 
+the program
#At the end, it can collate them into an image of the chip.  

$VERSION = 0.01;
@ISA = qw(G_code1_25 Exporter);
@EXPORT         = qw(new Depth Remove Destroy);
@EXPORT_OK         = qw();
return 1;
use lib "/Users/peterhowell/Documents/2007/Ablated_Waveguides/modules/
+";
use constant PI =>  4 * atan2 1, 1;

my $dir = "/Users/peterhowell/Library/Programing/Spots/";
my @apertures;    #maintains a list of all the apertures that have bee
+n used.
my @spots;        #catalogue of all the spots that have been laid down
                
#create new spot data structure.  Right now I'm assuming that the 
sub new {}

#Linear motion without cutting
sub G0 {}

sub G1 {}

#clockwise rotation
sub G2 {}

#anticlockwise rotation
sub G3 {}
    
sub Make_Lens {}
    
#fire a single pulse at the given coordinates
sub Pulse {}

#Sets the modes of the laser (on, off) and (spacing/pulse)
#This replaces L_ON and L_OFF
#if called without a clear mode it simply reports the current mode
sub Laser {}

sub Spacing {}

#Put in all the initial stuff
sub Init {}

sub Change_Aperture {}

sub Home {}

sub _place_pulse {}

sub _place_line {}

sub _place_circle {}
    
sub _angledif {}

#Shut down the module and clean up the memory space
#but first save the image of the ablation
sub Destroy {}
        
1;
[download]