diff options
| author | fukachan <fukachan> | 2001-11-09 10:39:05 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-09 10:39:05 +0000 |
| commit | bfa208614110157c7bcd20a5233e7e926601c64e (patch) | |
| tree | eb102b6d6406149aa4231c877048a33a68bcbabe /fml/lib/Mail/Message | |
| parent | bea72d32b2d439fe9b40ace4dfaa027e6dca91bc (diff) | |
| download | fml8-bfa208614110157c7bcd20a5233e7e926601c64e.tar.gz fml8-bfa208614110157c7bcd20a5233e7e926601c64e.tar.bz2 fml8-bfa208614110157c7bcd20a5233e7e926601c64e.zip | |
nuke new(), not used
Diffstat (limited to 'fml/lib/Mail/Message')
| -rw-r--r-- | fml/lib/Mail/Message/Language/Japanese/Subject.pm | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/fml/lib/Mail/Message/Language/Japanese/Subject.pm b/fml/lib/Mail/Message/Language/Japanese/Subject.pm index 7baaa988..b0ffe645 100644 --- a/fml/lib/Mail/Message/Language/Japanese/Subject.pm +++ b/fml/lib/Mail/Message/Language/Japanese/Subject.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Subject.pm,v 1.2 2001/07/31 14:19:42 fukachan Exp $ +# $FML: Subject.pm,v 1.1.1.1 2001/11/03 08:15:28 fukachan Exp $ # @@ -56,10 +56,6 @@ my $pattern = 'Re:|Re\d+:|Re\[\d+\]:|Re\(\d+\):|Re\^\d+:|Re\*\d+:|Re>'; =head1 METHODS -=head2 C<new()> - -usual constructor. - =head2 C<is_reply($string)> check whether C<$string> looks like a reply message. @@ -71,15 +67,6 @@ For example, it is like this: =cut -sub new -{ - my ($self) = @_; - my ($type) = ref($self) || $self; - my $me = {}; - return bless $me, $type; -} - - sub is_reply { my ($self, $x) = @_; |