view release on metacpan or  search on metacpan

contrib/Events.mom  view on Meta::CPAN

53
54
55
56
57
58
59
60
61
62
63
### Constructor ###
###################
sub module_init {
   my ($type) = @_;
 
   my $self = $type->SUPER::module_init($type);
 
   $self->{'events'} = {};
 
   return $self;
};

 view release on metacpan or  search on metacpan

lib/App/Module/Template/Initialize.pm  view on Meta::CPAN

634
635
636
637
638
639
640
641
642
643
644
 
#-------------------------------------------------------------------------------
sub _init {
    my ($self, $arg) = @_;
 
#    $self->SUPER::_init($arg);
 
    return;
}
 
}

 view release on metacpan or  search on metacpan

lib/App/MojoSlides/Slides.pm  view on Meta::CPAN

17
18
19
20
21
22
23
24
25
26
27
  my $args;
  if (@_==1) {
    $args = { last => $_[0] } unless ref $_[0];
    $args = { list => $_[0] } if ref $_[0] eq 'ARRAY';
  }
  return $class->SUPER::new($args ? $args : @_);
}
 
sub prev {
  my ($self, $current) = @_;
  return $current == $self->first ? $current : $current - 1;

 view release on metacpan or  search on metacpan

lib/App/MonM/Notifier.pm  view on Meta::CPAN

137
138
139
140
141
142
143
144
145
146
147
};
 
sub new {
    my $class = shift;
    my %args = @_;
    my $self = $class->SUPER::new(%args);
 
    # Store
    my $store_conf = hash($self->config->conf(NODE_NAME) || $self->config->conf(NODE_NAME_ALIAS));
    $store_conf->{expires} = getExpireOffset(lvalue($store_conf, "expires") || lvalue($store_conf, "expire") || 0);
    $store_conf->{maxtime} = getExpireOffset(lvalue($store_conf, "maxtime") || 0);

 view release on metacpan or  search on metacpan

lib/App/MonM.pm  view on Meta::CPAN

363
364
365
366
367
368
369
370
371
372
373
my $NOTIFIER_LOADED = 1 unless $@;
$NOTIFIER_LOADED = 0 if $NOTIFIER_LOADED && (App::MonM::Notifier->VERSION * 1) < 1.04;
 
sub again {
    my $self = shift;
       $self->SUPER::again(); # CTK::App again first!!
 
    # Datadir & Tempdir
    if ($self->option("datadir")) {
        # Prepare DataDir
        preparedir( $self->datadir() ) or do {

 view release on metacpan or  search on metacpan

lib/App/Mowyw/Datasource/XML.pm  view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
23
    my $self = bless { OPTIONS => $opts, INDEX => 0 }, $class;
 
    my $file = $opts->{file} or confess "Mandatory option 'file' is missing\n";
    $opts->{source} = $self->_read_data($file);
#    print Dumper $opts;
    $self = $self->SUPER::new($opts);
 
    return $self;
}
 
sub _read_data {

 view release on metacpan or  search on metacpan

lib/App/MtAws/HttpSegmentWriter.pm  view on Meta::CPAN

126
127
128
129
130
131
132
133
134
135
136
sub new
{
        my ($class, %args) = @_;
        my $self = \%args;
        bless $self, $class;
        $self->SUPER::initialize();
        $self->initialize();
        return $self;
}
 
sub initialize

lib/App/MtAws/HttpSegmentWriter.pm  view on Meta::CPAN

144
145
146
147
148
149
150
151
152
153
154
sub reinit
{
        my $self = shift;
        $self->{incr_position} = 0;
        $self->{treehash} = App::MtAws::TreeHash->new();
        $self->SUPER::reinit(@_);
}
 
sub treehash { shift->{treehash} }
 
sub _flush

lib/App/MtAws/HttpSegmentWriter.pm  view on Meta::CPAN

166
167
168
169
170
171
172
173
174
175
176
}
 
sub finish
{
        my ($self) = @_;
        my @r = $self->SUPER::finish();
        return @r;
}
 
 
package App::MtAws::HttpFileWriter;

lib/App/MtAws/HttpSegmentWriter.pm  view on Meta::CPAN

188
189
190
191
192
193
194
195
196
197
198
sub new
{
        my ($class, %args) = @_;
        my $self = \%args;
        bless $self, $class;
        $self->SUPER::initialize();
        $self->initialize();
        return $self;
}
 
sub initialize

lib/App/MtAws/HttpSegmentWriter.pm  view on Meta::CPAN

206
207
208
209
210
211
212
213
214
215
216
        my $self = shift;
        undef $self->{fh};
        open_file($self->{fh}, $self->{tempfile}, mode => '+<', binary => 1) or confess "cant open file $self->{tempfile} $!";
        binmode $self->{fh};
        $self->{treehash} = App::MtAws::TreeHash->new();
        $self->SUPER::reinit(@_);
}
 
sub treehash { shift->{treehash} }
 
sub _flush

lib/App/MtAws/HttpSegmentWriter.pm  view on Meta::CPAN

222
223
224
225
226
227
228
229
230
}
 
sub finish
{
        my ($self) = @_;
        my @r = $self->SUPER::finish();
        close $self->{fh} or confess;
        return @r;
}

 view release on metacpan or  search on metacpan

lib/App/MultiLanguage/LDAP.pm  view on Meta::CPAN

45
46
47
48
49
50
51
52
53
54
55
        my $self = shift;
         
        $self->{search_args} = \@_;
        $self->_search;
         
        $self->SUPER::parse();
}
 
sub _connect {
        my $self = shift;
        

 view release on metacpan or  search on metacpan

lib/App/MultiModule/Collector.pm  view on Meta::CPAN

6
7
8
9
10
11
12
13
14
15
16
sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my %args = @_;
    $args{collector_name} = 'unknown' unless $args{collector_name};
#    my $self  = $class->SUPER::new();
    my $self = {};
    $self->{collector_name} = $args{collector_name};
    bless ($self, $class);
    return $self;
}

 view release on metacpan or  search on metacpan

lib/App/Music/ChordPro/Wx/Main.pm  view on Meta::CPAN

22
23
24
25
26
27
28
29
30
31
32
use Encode qw(decode_utf8);
 
our $VERSION = $App::Music::ChordPro::Wx::VERSION;
 
sub new {
    my $self = bless $_[0]->SUPER::new(), __PACKAGE__;
 
    Wx::Event::EVT_IDLE($self, $self->can('OnIdle'));
 
    $self;
}

 view release on metacpan or  search on metacpan

lib/ChordPro/Chords/Parser.pm  view on Meta::CPAN

1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
    return $info;
}
 
sub chord_display ( $self ) {
 
    $self->SUPER::chord_display
      ( $::config->{"chord-formats"}->{common}
        // $::config->{settings}->{"chord-format"}
        // "%{name}" );
}

lib/ChordPro/Chords/Parser.pm  view on Meta::CPAN

1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
    return $res;
}
 
sub chord_display ( $self ) {
 
    $self->SUPER::chord_display
      ( $::config->{"chord-formats"}->{nashville}
        // "%{name}" );
}
 
################ Chord objects: Roman ################

lib/ChordPro/Chords/Parser.pm  view on Meta::CPAN

1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
    return $res;
}
 
sub chord_display ( $self ) {
 
    $self->SUPER::chord_display
      ( $::config->{"chord-formats"}->{roman}
        // "%{name}" );
}
 
################ Chord objects: Annotations ################

 view release on metacpan or  search on metacpan

lib/App/Muter.pm  view on Meta::CPAN

209
210
211
212
213
214
215
216
217
218
219
$App::Muter::Backend::Chunked::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend/;
 
sub new {
    my ($class, $args, %opts) = @_;
    my $self = $class->SUPER::new($args, %opts);
    $self->{chunk}       = '';
    $self->{enchunksize} = $opts{enchunksize} || $opts{chunksize};
    $self->{dechunksize} = $opts{dechunksize} || $opts{chunksize};
    return $self;
}

lib/App/Muter.pm  view on Meta::CPAN

257
258
259
260
261
262
263
264
265
266
$App::Muter::Backend::ChunkedDecode::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend/;
 
sub new {
    my ($class, $args, %opts) = @_;
    my $self = $class->SUPER::new($args, %opts);
    $self->{chunk}  = '';
    $self->{regexp} = $opts{regexp};
    return $self;
}

lib/App/Muter.pm  view on Meta::CPAN

300
301
302
303
304
305
306
307
308
309
310
our @ISA = qw/App::Muter::Backend::Chunked/;
 
sub new {
    my ($class, $args, %opts) = @_;
    my $nl = (grep { $_ eq 'mime' } @$args) ? "\n" : '';
    my $self = $class->SUPER::new(
        $args, %opts,
        enchunksize => $nl ? 57 : 3,
        dechunksize => 4
    );
    $self->{nl} = $nl;

lib/App/Muter.pm  view on Meta::CPAN

331
332
333
334
335
336
337
338
339
340
341
}
 
sub decode {
    my ($self, $data) = @_;
    $data = $self->{dxfrm}->($data);
    return $self->SUPER::decode($self->_filter($data));
}
 
sub decode_chunk {
    my (undef, $data) = @_;
    return MIME::Base64::decode($data);

lib/App/Muter.pm  view on Meta::CPAN

369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
$App::Muter::Backend::Hex::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend::Chunked/;
 
sub new {
    my ($class, $args, %opts) = @_;
    my $self = $class->SUPER::new(
        $args, %opts,
        enchunksize => 1,
        dechunksize => 2
    );
    $self->{upper} = 1 if defined $args->[0] && $args->[0] eq 'upper';
    return $self;
}
 
sub metadata {
    my $self = shift;
    my $meta = $self->SUPER::metadata;
    return {
        %$meta,
        args => {
            upper => 'Use uppercase letters',
            lower => 'Use lowercase letters',

lib/App/Muter.pm  view on Meta::CPAN

410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
$App::Muter::Backend::Base16::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend::Hex/;
 
sub new {
    my ($class, $args, %opts) = @_;
    my $self = $class->SUPER::new(['upper'], %opts);
    return $self;
}
 
sub metadata {
    my $self = shift;
    my $meta = $self->SUPER::metadata;
    delete $meta->{args};
    return $meta;
}
 
App::Muter::Registry->instance->register(__PACKAGE__);

lib/App/Muter.pm  view on Meta::CPAN

429
430
431
432
433
434
435
436
437
438
439
$App::Muter::Backend::Base32::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend::Chunked/;
 
sub new {
    my ($class, @args) = @_;
    my $self = $class->SUPER::new(@args, enchunksize => 5, dechunksize => 8);
    $self->{ftr} =
        sub { my $val = shift; $val =~ tr/\x00-\x1f/A-Z2-7/; return $val };
    $self->{rtr} =
        sub { my $val = shift; $val =~ tr/A-Z2-7/\x00-\x1f/; return $val };
    $self->{func} = 'base32';

lib/App/Muter.pm  view on Meta::CPAN

506
507
508
509
510
511
512
513
514
515
516
    return $result;
}
 
sub metadata {
    my $self = shift;
    my $meta = $self->SUPER::metadata;
    return {
        %$meta,
        args => {
            'manual' => 'Disable use of MIME::Base32',
        }

lib/App/Muter.pm  view on Meta::CPAN

523
524
525
526
527
528
529
530
531
532
533
$App::Muter::Backend::Base32Hex::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend::Base32/;
 
sub new {
    my ($class, @args) = @_;
    my $self = $class->SUPER::new(@args);
    $self->{ftr} =
        sub { my $val = shift; $val =~ tr/\x00-\x1f/0-9A-V/; return $val };
    $self->{rtr} =
        sub { my $val = shift; $val =~ tr/0-9A-V/\x00-\x1f/; return $val };
    $self->{func} = 'base32hex';

lib/App/Muter.pm  view on Meta::CPAN

540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
$App::Muter::Backend::URI::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend::ChunkedDecode/;
 
sub new {
    my ($class, $args, %opts) = @_;
    my $self = $class->SUPER::new($args, %opts, regexp => qr/^(.*)(%.?)$/s);
    my $lower = grep { $_ eq 'lower' } @$args;
    $self->{chunk}  = '';
    $self->{format} = '%%%02' . ($lower ? 'x' : 'X');
    $self->{form}   = grep { $_ eq 'form' } @$args;
    return $self;
}
 
sub metadata {
    my $self = shift;
    my $meta = $self->SUPER::metadata;
    return {
        %$meta,
        args => {
            'upper' => 'Use uppercase letters',
            'lower' => 'Use lowercase letters',

lib/App/Muter.pm  view on Meta::CPAN

582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
$App::Muter::Backend::Form::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend::URI/;
 
sub encode_chunk {
    my ($self, $data) = @_;
    $data = $self->SUPER::encode_chunk($data);
    $data =~ s/%20/+/g;
    return $data;
}
 
sub decode_chunk {
    my ($self, $data) = @_;
    $data =~ tr/+/ /;
    return $self->SUPER::decode_chunk($data);
}
 
App::Muter::Registry->instance->register(__PACKAGE__);
 
package App::Muter::Backend::XML;
$App::Muter::Backend::XML::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend::ChunkedDecode/;
 
sub new {
    my ($class, $args, %opts) = @_;
    my $self = $class->SUPER::new($args, %opts, regexp => qr/^(.*)(&[^;]*)$/);
    no warnings 'qw';    ## no critic (ProhibitNoWarnings)
    my $maps = {
        default => [qw/quot amp apos lt gt/],
        html    => [qw/quot amp #x27 lt gt/],
        hex     => [qw/#x22 #x26 #x27 #x3c #x3e/],

lib/App/Muter.pm  view on Meta::CPAN

617
618
619
620
621
622
623
624
625
626
627
    return $self;
}
 
sub metadata {
    my $self = shift;
    my $meta = $self->SUPER::metadata;
    return {
        %$meta,
        args => {
            default => 'Use XML entity names',
            html    => 'Use HTML-friendly entity names for XML entities',

lib/App/Muter.pm  view on Meta::CPAN

660
661
662
663
664
665
666
667
668
669
our @ISA = qw/App::Muter::Backend::ChunkedDecode/;
 
sub new {
    my ($class, $args, %opts) = @_;
    my $self =
        $class->SUPER::new($args, %opts, regexp => qr/\A(.*)(=[^\n]?)\z/);
    $self->{curlen} = 0;
    $self->{smtp} = 1 if grep { $_ eq 'smtp' } @$args;
    return $self;
}

lib/App/Muter.pm  view on Meta::CPAN

719
720
721
722
723
724
725
726
727
728
729
    return $data;
}
 
sub metadata {
    my $self = shift;
    my $meta = $self->SUPER::metadata;
    return {
        %$meta,
        args => {
            smtp => 'Encode "." and "From " at beginning of line',
        }

lib/App/Muter.pm  view on Meta::CPAN

736
737
738
739
740
741
742
743
744
745
746
$App::Muter::Backend::Vis::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend::ChunkedDecode/;
 
sub new {
    my ($class, $args, %opts) = @_;
    my $self = $class->SUPER::new($args, %opts,
        regexp => qr/\A(.*?[^^\\-])?(\\.{0,3})\z/);
    $self->_setup_maps(map { $_ => 1 } @$args);
    $self->{chunk} = '';
    return $self;
}

lib/App/Muter.pm  view on Meta::CPAN

818
819
820
821
822
823
824
825
826
827
828
        $self->{chunk} = "\0";
    }
    else {
        $self->{chunk} = '';
    }
    return $self->SUPER::encode($data);
}
 
sub encode_chunk {
    my ($self, $data) = @_;
    my $result = join('', map { $self->{map}[$_] } unpack('C*', $data));

lib/App/Muter.pm  view on Meta::CPAN

849
850
851
852
853
854
855
856
857
858
859
        $data);
}
 
sub metadata {
    my $self = shift;
    my $meta = $self->SUPER::metadata;
    return {
        %$meta,
        args => {
            sp     => 'Encode space',
            space  => 'Encode space',

lib/App/Muter.pm  view on Meta::CPAN

873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
$App::Muter::Backend::Ascii85::VERSION = '0.003000';
our @ISA = qw/App::Muter::Backend::Chunked/;
 
sub new {
    my ($class, @args) = @_;
    my $self = $class->SUPER::new(@args, enchunksize => 4, dechunksize => 5);
    $self->{start} = '';
    return $self;
}
 
sub encode {
    my ($self, $data) = @_;
    return '' unless length $data;
    my $prefix = defined $self->{start} ? '<~' : '';
    $self->{start} = undef;
    return $prefix . $self->SUPER::encode($data);
}
 
sub encode_final {
    my ($self, $data) = @_;
    return $self->SUPER::encode_final($data) .
        (defined $self->{start} ? '' : '~>');
}
 
sub _encode_seq {
    my ($x, $flag) = @_;

lib/App/Muter.pm  view on Meta::CPAN

976
977
978
979
980
981
982
983
984
985
986
my $hashes = {};
 
sub new {
    my ($class, $args, @args) = @_;
    my ($hash) = @$args;
    my $self = $class->SUPER::new($args, @args);
    $self->{hash} = $hashes->{$hash}->();
    return $self;
}
 
sub encode {

lib/App/Muter.pm  view on Meta::CPAN

995
996
997
998
999
1000
1001
1002
1003
1004
1005
    return $self->{hash}->digest;
}
 
sub metadata {
    my ($self, $data) = @_;
    my $meta = $self->SUPER::metadata;
    $meta->{args} = {map { $_ => "Use the $_ hash algorithm" } keys %$hashes};
    return $meta;
}
 
sub register_hash {

 view release on metacpan or  search on metacpan

lib/App/NDTools/NDDiff.pm  view on Meta::CPAN

23
24
25
26
27
28
29
30
31
32
33
 
sub arg_opts {
    my $self = shift;
 
    return (
        $self->SUPER::arg_opts(),
        'A!' => \$self->{OPTS}->{diff}->{A},
        'N!' => \$self->{OPTS}->{diff}->{N},
        'O!' => \$self->{OPTS}->{diff}->{O},
        'R!' => \$self->{OPTS}->{diff}->{R},
        'U!' => \$self->{OPTS}->{diff}->{U},

lib/App/NDTools/NDDiff.pm  view on Meta::CPAN

57
58
59
60
61
62
63
64
65
66
67
}
 
sub configure {
    my $self = shift;
 
    $self->SUPER::configure();
 
    $self->{OPTS}->{colors} = $self->{TTY}
        unless (defined $self->{OPTS}->{colors});
 
    # resolve colors

lib/App/NDTools/NDDiff.pm  view on Meta::CPAN

96
97
98
99
100
101
102
103
104
105
106
 
sub defaults {
    my $self = shift;
 
    my $out = {
        %{$self->SUPER::defaults()},
        'ctx-text' => 3,
        'diff' => {
            'A' => 1,
            'N' => 1,
            'O' => 1,

 view release on metacpan or  search on metacpan

bin/navegante  view on Meta::CPAN

20
21
22
23
24
25
26
27
28
29
30
sub new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);
 
    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
        {#State 0
                DEFAULT => -19,
                GOTOS => {

 view release on metacpan or  search on metacpan

lib/App/Netdisco/Builder.pm  view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
    $self->do_system( App::Netdisco::Util::Python::py_install() );
}
 
sub ACTION_install {
    my $self = shift;
    $self->SUPER::ACTION_install;
    $self->ACTION_python;
}
 
1;

 view release on metacpan or  search on metacpan

lib/App/NoPAN/Installer/Configure.pm  view on Meta::CPAN

19
20
21
22
23
24
25
26
27
sub build {
    my ($self, $nopan) = @_;
    $self->shell_exec('autoreconf -i')
        unless -e 'configure';
    $self->shell_exec('./configure');
    $self->SUPER::build($nopan);
}
 
1;

 view release on metacpan or  search on metacpan

lib/App/Nopaste/Service/AnyPastebin.pm  view on Meta::CPAN

20
21
22
23
24
25
26
27
28
29
    $mech->{__username} = $args{username}
        if exists($args{username}) && $args{username};
    $mech->{__password} = $args{password}
        if exists($args{password}) && $args{password};
 
    return $self->SUPER::get($mech => @_);
}
 
sub post_content {
    my ($self, %args) = @_;

 view release on metacpan or  search on metacpan

lib/App/Nopaste/Service/Linode.pm  view on Meta::CPAN

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    my %args = @_;
 
    $args{username} ||= 'no';
    $args{password} ||= 'spam';
     
    return $self->SUPER::get($mech => %args);
}
 
sub post_content {
    my ($self, %args) = @_;
 
    my $content = $self->SUPER::post_content(%args);
 
    # On p.linode.com the code2 parameter is called code2z for some
    # reason.
    $content->{code2z} = delete $content->{code2};

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

61
62
63
64
65
66
67
68
69
70
71
1.02  Fri Jan 29 09:52:00 2010
        - Change namespace from CGI::Office::* to App::Office::* after discussion with Matt Trout
 
1.01  Thu Jan  7 15:39:00 2010
        - Add MANIFEST and MYMETA.yml
        - Change call from SUPER::cgiapp to global_prerun to match other CGI-Office-* modules
 
1.00  Thu Dec 31 10:48:00 2009
        - Rename from Local::Contacts.
        - Remove Apache-specific code.
        - Split into N controllers, using CGI::Application::Dispatch.

 view release on metacpan or  search on metacpan

lib/App/Oozie/Deploy/Template/ttree.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
 
our $VERSION = '0.020'; # VERSION
 
sub new {
    my($class, $log_collector, @pass_through) = @_;
    my $self  = $class->SUPER::new(
                    @pass_through,
                );
    $self->{log_collector} = $log_collector;
    return $self;
}
 
sub run {
    my($self, @args) = @_;
    local @ARGV = @args;
    return $self->SUPER::run();
}
 
sub emit_warn {
    my($self, $msg) = @_;
    return$self->{log_collector}->(

 view release on metacpan or  search on metacpan

lib/App/PLab/Calibrations.pm  view on Meta::CPAN

6
7
8
9
10
11
12
13
14
15
sub win_inidefaults
{
   my $w = $_[0];
   my @rc = $w-> rect;
   return (
      $w-> SUPER::win_inidefaults,
      XCalibration => 1.0,
      YCalibration => 1.0,
   );
}

lib/App/PLab/Calibrations.pm  view on Meta::CPAN

23
24
25
26
27
28
29
30
31
32
33
      tabs      => [ @nbpages, 'Calibrations'],
      pageCount => scalar(@nbpages) + 1,
   );
   my $pg = $nb-> pageCount;
 
   $w-> SUPER::opt_propcreate( $dlg, $nb, $nbpages);
# Calibrations
   my %spinPrf = (
      size     => [ 265, 20],
      min      => 0.0001,
      max      => 10,

lib/App/PLab/Calibrations.pm  view on Meta::CPAN

62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
}
 
sub opt_proppush
{
   my ( $w, $dlg, $nb, $nbpages) = @_;
   $w-> SUPER::opt_proppush( $dlg, $nb, $nbpages);
# Calibrations
   $nbpages-> XC-> value($w->{ini}->{XCalibration});
   $nbpages-> YC-> value($w->{ini}->{YCalibration});
}
 
sub opt_proppop
{
   my ( $w, $dlg, $nb, $nbpages, $mr) = @_;
   $w-> SUPER::opt_proppop( $dlg, $nb, $nbpages, $mr);
# Calibrations
   if ( $mr) {
      my ( $xc, $yc) = ( $nbpages-> XC->value, $nbpages-> YC->value);
      $w-> modified( 1) if
         $w->{ini}->{XCalibration} != $xc ||

 view release on metacpan or  search on metacpan

lib/App/PS1.pm  view on Meta::CPAN

69
70
71
72
73
74
75
76
77
78
79
    },
);
 
sub new {
    my ($class, $params) = @_;
    my $self = $class->SUPER::new($params);
 
    $self->safe( $ENV{UNICODE_UNSAFE} ) if !defined $self->safe;
    $self->theme("default")             if !defined $self->theme;
 
    $theme{ $self->theme } ||= {};

 view release on metacpan or  search on metacpan

lib/App/PerlShell/LexPersist.pm  view on Meta::CPAN

31
32
33
34
35
36
37
38
39
40
41
            $params{$_} = $cfg{$_};
        }
    }
}
 
my $self = $class->SUPER::new(@_);
 
$self->{package} = $package;
# following line avoids ugly error if first command in shell is
# $var = ... without the "my"
$PACKAGE = $package;

lib/App/PerlShell/LexPersist.pm  view on Meta::CPAN

66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
        \$App::PerlShell::LexPersist::PACKAGE = __PACKAGE__;
}
END_PERL
 
    # Hand off to the parent version
    return $self->SUPER::prepare( $code, @_ );
}
 
# Modifications to the package are tracked at compile-time
sub compile {
    my $self = shift;
    my $sub  = $self->SUPER::compile(@_);
 
    # Save the package state
    $self->set_package($PACKAGE);
 
    return $sub;

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

6
7
8
9
10
11
12
13
14
15
16
        code => q{
                sub ACTION_docs {
                        use Pod::Select;
                        my $self = shift;
                        podselect({ -output => 'README.pod' }, 'lib/App/PhotoDB.pm');
                        return $self->SUPER::ACTION_docs;
                }
        }
);
 
my $builder = $class->new(

 view release on metacpan or  search on metacpan

script/pick  view on Meta::CPAN

3086
3087
3088
3089
3090
3091
3092
3093
3094
3095
3096
#}
#
#sub _init_read {
#    my $self = shift;
#
#    $self->SUPER::_init_read;
#    $self->{_res} = {};
#    $self->{_merge} = undef;
#    $self->{_num_seen_section_lines} = 0;
#    $self->{_cur_section} = $self->{default_section};
#    $self->{_arrayified} = {};

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

82
83
84
85
86
87
88
89
90
91
92
 
sub ACTION_author_test
{
my $self = shift;
local $self->{properties}{test_files} = 'xt/author/*.t' ;
$self->SUPER::ACTION_test();
}
 
sub ACTION_dist
{
my $self = shift;

Build.PL  view on Meta::CPAN

113
114
115
116
117
118
119
120
121
122
123
124
125
                {
                print "git not found, 'Changes' will not be generated from git log!\n" ;
                }
        }
 
$self->SUPER::ACTION_test() ;
#~ $self->ACTION_author_test() ;
 
$self->SUPER::ACTION_dist();
};
 
EOC
;

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

17
18
19
20
21
22
23
24
25
26
27
#---------------------------------
 
sub ACTION_build {
    my ($s) = @_;
    $s->_readme();
    $s->SUPER::ACTION_build;
}
 
# Only for the maintainer on "Build build".
sub _readme {
    my ($s) = @_;

Build.PL  view on Meta::CPAN

43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
sub ACTION_install {
    my ($s) = @_;
    $s->_clear_cache;
    $s->_check_for_source_command if os_type eq "Unix";
    $s->SUPER::ACTION_install;
}
sub ACTION_clean {
    my ($s) = @_;
    $s->_clear_cache;
    $s->SUPER::ACTION_clean;
}
sub ACTION_test {
    my ($s) = @_;
    $s->_clear_cache;
    $s->SUPER::ACTION_test;
}
 
sub _clear_cache {
    my $home = $ENV{HOME} // $ENV{USERPROFILE} // $ENV{LOGDIR};
    for ( glob qq("$home/.cache/my_pod*.cache") ) {

 view release on metacpan or  search on metacpan

lib/App/Pods2Site/SiteBuilder/BasicFramesTreeTOC.pm  view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
 
sub new
{
        my $class = shift;
 
        my $self = $class->SUPER::new(@_);
        $self->{maxtocdepth} = -1;
 
        return $self;
}

 view release on metacpan or  search on metacpan

lib/App/Presto/ShellUI.pm  view on Meta::CPAN

32
33
34
35
36
37
38
39
40
41
42
                $self->arg_processor->process($args);
                1;
        } or do {
                warn "Error preparsing args @$args: $@";
        };
        return $self->SUPER::call_command(@_);
}
 
sub ornaments {
        shift->{term}->ornaments(@_);
}

 view release on metacpan or  search on metacpan

lib/PrimaX/InputHistory.pm  view on Meta::CPAN

128
129
130
131
132
133
134
135
136
137
138
 
# This has the standard profile of an InputLine widget, except that it knows
# about navigation keys and other things useful for the History.
sub profile_default
{
        my %def = %{$_[ 0]-> SUPER::profile_default};
 
        # These lines are somewhat patterned from the Prima example called 'editor'
        my @acc = (
                # Navigation scrolls through the command history
                  ['Previous Line', 'Up', kb::Up, sub {$_[0]->move_line(-1)}]

lib/PrimaX/InputHistory.pm  view on Meta::CPAN

160
161
162
163
164
165
166
167
168
169
170
# This stage initializes the inputline. I believe this is the appropriate stage
# for (1) setting the properties above (2) loading the history file data, and
# (3) connecting to the output widget.
sub init {
        my $self = shift;
        my %profile = $self->SUPER::init(@_);
        foreach ( qw(pageLines promptFormat currentLine outputWidget storeType) ) {
                $self->{$_} = $profile{$_};
        }
         
        # Store the history and revisions: