NAME

Localizer::Scanner::Perl - Scanner for file which is written by perl

SYNOPSIS

use Localizer::Dictionary;
use Localizer::Scanner::Perl;

my $result  = Localizer::Dictionary->new();
my $scanner = Localizer::Scanner::Perl->new();
$scanner->scan_file($result, 'path/to/perl.pl');

METHODS

• Localizer::Scanner::Perl()

  Constructor. It makes scanner instance.

• $scanner->scan_file($result, $filename)

  Scan file which is written by perl. $result is the instance of Localizer::Dictionary to store results. $filename is file name of the target to scan.

  For example, if target file is follows;

  print q{_("123")};
  print q{l("foo")};
  print q{loc("bar")};

  Scanner uses _('foobar'), l('foobar') and loc('foobar') as msgid (in this case, 'foobar' will be msgid).

  $result will be like a following;

  {
      '123' => {
          'position' => [ [ 'path/to/perl.pl', 1 ] ]
      },
      'foo' => {
          'position' => [ [ 'path/to/perl.pl', 2 ] ]
      },
      'bar' => {
          'position' => [ [ 'path/to/perl.pl', 3 ] ]
      }
  }

• $scanner->scan($result, $filename, $data)

  This method is almost the same as scan_file(). This method does not load file contents, it uses $data as file contents instead.

SEE ALSO

Locale::Maketext::Extract::Plugin::Perl

LICENSE

Copyright (C) Tokuhiro Matsuno.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.