Sah-SchemaBundle-Perl

 view release on metacpan or  search on metacpan

lib/Sah/Schema/perl/filename.pm  view on Meta::CPAN

=head1 SAH SCHEMA DEFINITION

 [
   "str",
   {
     "summary" => "Filename of Perl script/module/POD, e.g. /path/Foo/Bar.pm",
     "x.completion" => sub {
       package Sah::Schema::perl::filename;
       use warnings;
       use strict;
       no feature ':all';
       use feature ':5.10';
       require Complete::File;
       require Complete::Module;
       require Complete::Util;
       my(%args) = @_;
       my $word = $args{'word'};
       my @answers;
       push @answers, Complete::File::complete_file('word', $word);
       if ($word =~ m[\A\w*((?:::|/)\w+)*\z]) {
       push @answers, Complete::Module::complete_module('word', $word);

lib/Sah/Schema/perl/pm_filename.pm  view on Meta::CPAN

=head1 SAH SCHEMA DEFINITION

 [
   "str",
   {
     "summary" => "A .pm filename, e.g. /path/Foo.pm",
     "x.completion" => sub {
       package Sah::Schema::perl::pm_filename;
       use warnings;
       use strict;
       no feature ':all';
       use feature ':5.10';
       require Complete::File;
       require Complete::Module;
       require Complete::Util;
       my(%args) = @_;
       my $word = $args{'word'};
       my @answers;
       push @answers, Complete::File::complete_file('word', $word);
       if ($word =~ m[\A\w*((?:::|/)\w+)*\z]) {
       push @answers, Complete::Module::complete_module('word', $word, 'find_pod', 0);

lib/Sah/Schema/perl/pod_filename.pm  view on Meta::CPAN

=head1 SAH SCHEMA DEFINITION

 [
   "str",
   {
     "summary" => "A .pod filename, e.g. /path/Foo.pod",
     "x.completion" => sub {
       package Sah::Schema::perl::pod_filename;
       use warnings;
       use strict;
       no feature ':all';
       use feature ':5.10';
       require Complete::File;
       require Complete::Module;
       require Complete::Util;
       my(%args) = @_;
       my $word = $args{'word'};
       my @answers;
       push @answers, Complete::File::complete_file('word', $word);
       if ($word =~ m[\A\w*((?:::|/)\w+)*\z]) {
       push @answers, Complete::Module::complete_module('word', $word, 'find_pod', 1, 'find_pm', 0, 'find_pmc', 0);

lib/Sah/Schema/perl/pod_or_pm_filename.pm  view on Meta::CPAN

=head1 SAH SCHEMA DEFINITION

 [
   "str",
   {
     "summary" => "A .pod or .pm filename, e.g. /path/Foo.pm or /path/Bar/Baz.pod",
     "x.completion" => sub {
       package Sah::Schema::perl::pod_or_pm_filename;
       use warnings;
       use strict;
       no feature ':all';
       use feature ':5.10';
       require Complete::File;
       require Complete::Module;
       require Complete::Util;
       my(%args) = @_;
       my $word = $args{'word'};
       my @answers;
       push @answers, Complete::File::complete_file('word', $word);
       if ($word =~ m[\A\w*((?:::|/)\w+)*\z]) {
       push @answers, Complete::Module::complete_module('word', $word);