=head2 new
-Takes one argument, optional argument, C<file>. If this is speficied,
-the tag list will be populated as per that file on instantiation.
+Takes one optional argument, C<file>. If this is speficied, the tag
+list will be populated as per that file on instantiation.
Returns a E::M::STL object.
open TAGFILE, '<', $self->{conf}{file};
while (<TAGFILE>) {
+ next if m/^#/;
+ next if m/^\s*\n$/;
+
$self->{conf}{lastwasrange} = 0;
$self->{conf}{range}{high} = 0;
$self->{conf}{range}{low} = 0;
my @chunks = split /\s+/;
while (my $chunk = shift @chunks) {
+ last if ($chunk =~ /^#/);
# single values
if ($chunk =~ /^\d{1,3}$/) {
my ($self, $tag) = @_;
$tag =~ s/^0+//;
+ die "Values must be numeric\n" if ($tag =~ /[^\d\-]/);
+
die "Values must be valid tags (0-999)\n"
unless ($tag >= 0 and $tag <= 999);
You can find documentation for this module with the perldoc command.
- perldoc Equinox::Migration::TrashTags
+ perldoc Equinox::Migration::SimpleTagList
=head1 COPYRIGHT & LICENSE