This file is indexed.

/usr/share/perl5/Juman/Simple.pm is in libjuman-perl 7.0-3.1ubuntu1.

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: