/usr/share/perl5/Juman/Simple.pm is in libjuman-perl 7.0-3.4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 | # $Id: Simple.pm,v 1.2 2011/07/01 04:02:15 kawahara Exp $
package Juman::Simple;
require 5.000;
use Juman;
use strict;
use base qw/ Exporter /;
use vars qw/ @EXPORT /;
@EXPORT = qw/ juman /;
=head1 NAME
Juman::Simple - 形態素解析を行うモジュール
=head1 DESCRIPTION
C<Juman::Simple> は，Juman を用いて形態素解析を行う関数 C<juman> を定
義するモジュールである．
このモジュールを使うと，C<Juman> モジュールを簡単に，しかし制限された
形で利用することができる．例えば，このモジュールは，最初に作成した
C<Juman> オブジェクトを再利用するので，オプションの途中変更などはでき
ない．より高度な設定で形態素解析を行う必要がある場合は，C<Juman> モジュー
ルを直接呼び出すこと．
=head1 FUNCTION
=over 4
=item juman ($str)
指定された文字列を対象として形態素解析を行う関数．C<Juman::Result> オ
ブジェクトを返す．
Example:
use Juman::Simple;
$result = &juman( "この文を形態素解析してください．" );
print $result->all();
形態素解析のオプションを変更する場合は，C<use> の時点で指定しておく．
Example:
use Juman::Simple -Option => "-B -e2";
$result = &juman( "この文を形態素解析してください．" );
print $result->all();
オプションには，C<Juman::new> の受け付けるオプションと同じものが指定で
きる．
=cut
my @OPTION;
my $JUMAN;
sub import {
my $class = shift;
@OPTION = @_;
$class->export_to_level( 1 );
}
sub juman {
my( $str ) = @_;
$JUMAN ||= Juman->new( @OPTION );
$JUMAN->analysis( $str );
}
1;
=back
=head1 SEE ALSO
=over 4
=item *
L<Juman>
=item *
L<Juman::Result>
=back
=head1 AUTHOR
=over 4
=item
土屋 雅稔 <tsuchiya@pine.kuee.kyoto-u.ac.jp>
=cut
__END__
# Local Variables:
# mode: perl
# use-kuten-for-period: nil
# use-touten-for-comma: nil
# End:
|