File Coverage

lib/PMLTQ/Command/suggest.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	45	48	93.7

package PMLTQ::Command::suggest;
our $AUTHORITY = 'cpan:MATY';
$PMLTQ::Command::suggest::VERSION = '1.1.0';
# ABSTRACT: Return query for given nodes

use PMLTQ::Base 'PMLTQ::Command';
use PMLTQ;
use PMLTQ::Suggest::Utils;
use PMLTQ::Suggest;
use File::Path qw( make_path );
use Getopt::Long qw(GetOptionsFromArray);
use Treex::PML;

has usage => sub { shift->extract_usage };

my %opts;

sub run {
  my $self = shift;
  my @args = @_;
  GetOptionsFromArray(\@args, \%opts,
    'nodes|N=s'
  )  || die "invalid options";
  Treex::PML::AddResourcePath(
       PMLTQ->resources_dir,
       File::Spec->catfile(${FindBin::RealBin},'config'),
       $ENV{HOME}.'/.tred.d',
       $self->config->{resources}
      );
  my @paths = $opts{nodes} ? split(/\|/, $opts{nodes}) : ();
  my @positions;
  foreach my $p (@paths) {
    my ($path, $goto)=PMLTQ::Suggest::Utils::parse_file_suffix($p);
    $path = URI->new($path)->canonical->as_string;
    push @positions, [$path,$goto];
  }
  my $pmltq = PMLTQ::Suggest::make_pmltq(
    \@positions
   );
  Encode::_utf8_off($pmltq);
  print "$pmltq\n";
  return 1;
}

=head1 SYNOPSIS

  pmltq suggest [--resources="path to resources directory"] --nodes "FILE2#NODE_ID1|FILE2#NODE_ID2|..."

=head1 DESCRIPTION

Return query for given nodes. It works on local PML files.

=head1 OPTIONS

=head1 PARAMS

=over 5

=item B

Path to configuration file. If a treebank_config is --, config is readed from STDIN.

=back

=cut

1;