view release on metacpan or  search on metacpan

misc/cpan/MyBuilder.pm  view on Meta::CPAN

6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
use parent qw(https://metacpan.org/pod/Module::Build">Module::Build);
 
use Module::CPANfile;
 
use File::Basename;
use File::Spec;
 
sub new {
  _add_zsh_fpath(
    shift->SUPER::new(@_)
  );
}
 
sub _add_zsh_fpath {
  my ($self) = @_;
  my $elem = 'zsh_fpath';
  $self->add_build_element($elem);
 
  # XXX: Is this portable? only tested in Fedora...
  my $zsh_site_fpath = "share/zsh/site-functions";

samples/2-options/lib/Derived.pm  view on Meta::CPAN

4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
use warnings;
 
sub MY () {__PACKAGE__}
 
use File::AddInc;
use base qw(https://metacpan.org/pod/Greetings_oo_modulino_with_fields">Greetings_oo_modulino_with_fields);
use fields qw/width height/;
 
unless (caller) {
  my $self = MY->new(name => 'world', MY->SUPER::_parse_posix_opts(\@ARGV));
 
  my $cmd = shift
    or die "Usage: $0 COMMAND ARGS...\n";
 
  print $self->$cmd(@ARGV), "\n";
}
 
1;