# | Line 1 | Line 1 | |
---|---|---|
1 | – | #!perl |
2 | – | # |
1 | # Toolbox Class to process tool functionality information | |
2 | # | |
3 | # | |
4 | ||
5 | package ToolBox; | |
6 | + | require 5.001; |
7 | require Exporter; | |
8 | @ISA=qw(Exporter); | |
9 | use Carp; | |
10 | < | use SCRAMUtils; |
10 | > | use Utilities::SCRAMUtils; |
11 | ||
12 | # A new toolbox object | |
13 | sub new { | |
# | Line 129 | Line 128 | sub maketargets ($output, $input, $targe | |
128 | ||
129 | sub addtotoolbox { | |
130 | my $self=shift; | |
131 | < | use SCRAMUtils; |
131 | > | use Utilities::SCRAMUtils; |
132 | my $out=shift; | |
133 | my $in=shift; | |
134 | my $toolkey=shift; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |