diff options
| author | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-08 11:22:04 +0900 |
|---|---|---|
| committer | Ken'ichi Fukamachi <fukachan@fml.org> | 2018-09-08 12:49:20 +0900 |
| commit | 4a9246da1fc735f8b81651c50efaaae69c7b5337 (patch) | |
| tree | 6ee814149a66d73f077e3b46b49d93d4aece7fa4 | |
| parent | c60c819afb9c6bbab3b02ebe12b6103394c00343 (diff) | |
| download | fml8-4a9246da1fc735f8b81651c50efaaae69c7b5337.tar.gz fml8-4a9246da1fc735f8b81651c50efaaae69c7b5337.tar.bz2 fml8-4a9246da1fc735f8b81651c50efaaae69c7b5337.zip | |
private _regexp_compile() is elevated to public regexp_compile().
| -rw-r--r-- | fml/lib/Mail/Message/Subject.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/fml/lib/Mail/Message/Subject.pm b/fml/lib/Mail/Message/Subject.pm index 21054344..dd226ac4 100644 --- a/fml/lib/Mail/Message/Subject.pm +++ b/fml/lib/Mail/Message/Subject.pm @@ -125,7 +125,7 @@ sub delete_tag carp($@) if $@; } - my $retag = $self->_regexp_compile($tag); + my $retag = $self->regexp_compile($tag); $subject =~ s/$retag//g; $subject =~ s/^\s*//; $self->set($subject); @@ -135,6 +135,14 @@ sub delete_tag } +=head2 regexp_compile() + +create the regexp for a subject tag, +for example "[%s %05d]" => "\[\S+ \d+\]". + +=cut + + # Descriptions: create regexp for a subject tag, for example # "[%s %05d]" => "\[\S+ \d+\]" # not OO style. @@ -142,7 +150,7 @@ sub delete_tag # $s == a subject tag string # Side Effects: none # Return Value: STR(a regexp for the given tag) -sub _regexp_compile +sub regexp_compile { my ($self, $s) = @_; |