cvsuser 04/11/07 19:15:14
Modified: languages/regex/lib/Regex State.pm
Log:
split out literal_label so I can call it directly if needed
Revision Changes Path
1.2 +9 -4 parrot/languages/regex/lib/Regex/State.pm
Index: State.pm
===================================================================
RCS file: /cvs/public/parrot/languages/regex/lib/Regex/State.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- State.pm 14 Oct 2002 00:47:56 -0000 1.1
+++ State.pm 8 Nov 2004 03:15:14 -0000 1.2
@@ -8,14 +8,19 @@
return $self;
}
+sub literal_label {
+ my ($self, $label, $desc) = @_;
+ $desc ||= '';
+ return bless { name => 'LABEL',
+ label => $label,
+ }, 'Regex::Ops::Label';
+}
+
sub genlabel {
my ($self, $desc) = @_;
- $desc ||= '';
my $number = ++$self->{_markers}->{$desc};
$number = '' if ($number == 1) && ($desc ne '');
- return bless { name => 'LABEL',
- label => "[EMAIL PROTECTED]",
- }, 'Regex::Ops::Label';
+ return $self->literal_label("[EMAIL PROTECTED]", $desc);
}
1;
