view release on metacpan or  search on metacpan

lib/Acme/Pano/Util.pm  view on Meta::CPAN

151
152
153
154
155
156
157
158
159
160
161
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
 
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
 
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the

 view release on metacpan or  search on metacpan

inc/Module/Install/Fetch.pm  view on Meta::CPAN

41
42
43
44
45
46
47
48
49
50
51
    LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
    # use Net::FTP to get past firewall
    my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
    $ftp->login("anonymous", 'anonymous@example.com');
    $ftp->cwd($path);
    $ftp->binary;
    $ftp->get($file) or (warn("$!\n"), return);
    $ftp->quit;
} }

inc/Module/Install/Fetch.pm  view on Meta::CPAN

58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }
 
        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;

 view release on metacpan or  search on metacpan

inc/Module/Install/Fetch.pm  view on Meta::CPAN

41
42
43
44
45
46
47
48
49
50
51
    LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
    # use Net::FTP to get past firewall
    my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
    $ftp->login("anonymous", 'anonymous@example.com');
    $ftp->cwd($path);
    $ftp->binary;
    $ftp->get($file) or (warn("$!\n"), return);
    $ftp->quit;
} }

inc/Module/Install/Fetch.pm  view on Meta::CPAN

58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }
 
        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;

 view release on metacpan or  search on metacpan

lib/Acme/Perl/VM.pm  view on Meta::CPAN

125
126
127
128
129
130
131
132
133
134
135
 
our $PL_last_in_gv;
 
our @PL_ppaddr;
 
our $color = 'GREEN BOLD'; # for debugging log
 
sub not_implemented;
 
{
    my $i = 0;

 view release on metacpan or  search on metacpan

inc/Module/Install/Fetch.pm  view on Meta::CPAN

41
42
43
44
45
46
47
48
49
50
51
    LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
    # use Net::FTP to get past firewall
    my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
    $ftp->login("anonymous", 'anonymous@example.com');
    $ftp->cwd($path);
    $ftp->binary;
    $ftp->get($file) or (warn("$!\n"), return);
    $ftp->quit;
} }

inc/Module/Install/Fetch.pm  view on Meta::CPAN

58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }
 
        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;

 view release on metacpan or  search on metacpan

inc/Module/Install/Fetch.pm  view on Meta::CPAN

37
38
39
40
41
42
43
44
45
46
47
    LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
    # use Net::FTP to get past firewall
    my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
    $ftp->login("anonymous", 'anonymous@example.com');
    $ftp->cwd($path);
    $ftp->binary;
    $ftp->get($file) or (warn("$!\n"), return);
    $ftp->quit;
} }

inc/Module/Install/Fetch.pm  view on Meta::CPAN

54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }
 
        my @dialog = split(/\n/, << ".");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
.
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

19
20
21
22
23
24
25
26
27
28
29
        },
        dist          => {
                COMPRESS    => 'gzip -9f',
                SUFFIX      => 'gz',
                PREOP       => (
                        'git-log.pl | tee ./$(DISTNAME)-$(VERSION)/CHANGES > ./CHANGES ; ' .
                        'LANG=C perldoc lib/Acme/Phlegethoth.pm | ' .
                        'tee ./$(DISTNAME)-$(VERSION)/README > README'
                ),
        },
);

 view release on metacpan or  search on metacpan

inc/Module/Install/Fetch.pm  view on Meta::CPAN

41
42
43
44
45
46
47
48
49
50
51
    LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
    # use Net::FTP to get past firewall
    my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
    $ftp->login("anonymous", 'anonymous@example.com');
    $ftp->cwd($path);
    $ftp->binary;
    $ftp->get($file) or (warn("$!\n"), return);
    $ftp->quit;
} }

inc/Module/Install/Fetch.pm  view on Meta::CPAN

58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }
 
        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;

 view release on metacpan or  search on metacpan

inc/MyCheckVersionIncremented.pm  view on Meta::CPAN

11
12
13
14
15
16
17
18
19
20
21
 
    my $dist_version = $self->zilla->version;
    my $last_dist_version = $self->_indexed_distversion_via_query('Acme::Pi');
 
    my $fatal = $last_dist_version ge $dist_version;
    $self->${ $fatal ? \'log_fatal' : \'log' }([ 'We are releasing %s version %s. The last distribution version was %s.', $self->zilla->name, $dist_version, $last_dist_version ]);
}
 
use HTTP::Tiny;
use HTTP::Headers;
use Encode ();

inc/MyCheckVersionIncremented.pm  view on Meta::CPAN

26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
sub _indexed_distversion_via_query
{
    my ($self, $module) = @_;
 
    my $url = 'http://cpanmetadb.plackperl.org/v1.0/package/' . $module;
    $self->log_debug([ 'fetching %s', $url ]);
    my $res = HTTP::Tiny->new->get($url);
    $self->log('could not query the index?'), return undef if not $res->{success};
 
    my $data = $res->{content};
 
    if (my $charset = HTTP::Headers->new(%{ $res->{headers} })->content_type_charset)
    {
        $data = Encode::decode($charset, $data, Encode::FB_CROAK);
    }
    $self->log_debug([ 'got response: %s', $data ]);
 
    my $payload = YAML::Tiny->read_string($data);
 
    $self->log('invalid payload returned?'), return undef unless $payload;
    $self->log_debug([ '%s not indexed', $module ]), return undef if not defined $payload->[0]{version};
    return CPAN::DistnameInfo->new($payload->[0]{distfile})->version;
}
 
1;

 view release on metacpan or  search on metacpan

lib/Acme/Pills.pm  view on Meta::CPAN

121
122
123
124
125
126
127
128
129
130
131
  # your normal code
 
=head1 DESCRIPTION
 
Acme, Inc. produces fine and wonderful products for your pleasure.  We have a
huge catalog of products for your enjoyment, including many CPAN modules.
Remember to go to Acme, Inc. first.
 
=head1 USAGE
 
Just use Acme::Pills before any other Perl module and we'll rush our

 view release on metacpan or  search on metacpan

inc/Module/Install/Fetch.pm  view on Meta::CPAN

41
42
43
44
45
46
47
48
49
50
51
    LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
    # use Net::FTP to get past firewall
    my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
    $ftp->login("anonymous", 'anonymous@example.com');
    $ftp->cwd($path);
    $ftp->binary;
    $ftp->get($file) or (warn("$!\n"), return);
    $ftp->quit;
} }

inc/Module/Install/Fetch.pm  view on Meta::CPAN

58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }
 
        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;

 view release on metacpan or  search on metacpan

lib/Acme/ppport.h  view on Meta::CPAN

346
347
348
349
350
351
352
353
354
355
 
The name and version of the module you were trying to build.
 
=item 4.
 
A full log of the build that failed.
 
=item 5.
 
Any other information that you think could be relevant.

lib/Acme/ppport.h  view on Meta::CPAN

1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
memEQs|5.009005||p
memEQ|5.004000||p
memNEs|5.009005||p
memNE|5.004000||p
mem_collxfrm|||
mem_log_common|||n
mess_alloc|||
mess_nocontext|||vn
mess_sv||5.013001|
mess||5.006000|v
mfree||5.007002|n

lib/Acme/ppport.h  view on Meta::CPAN

2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
newXS||5.006000|
new_collate||5.006000|
new_constant|||
new_ctype||5.006000|
new_he|||
new_logop|||
new_numeric||5.006000|
new_stackinfo||5.005000|
new_version||5.009000|
new_warnings_bitfield|||
next_symbol|||

lib/Acme/ppport.h  view on Meta::CPAN

2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn
xs_version_bootcheck|||
yyerror_pvn|||
yyerror_pv|||
yyerror|||

 view release on metacpan or  search on metacpan

lib/Acme/Pony/Pink.pm  view on Meta::CPAN

211
212
213
214
215
216
217
218
219
220
221
VAEFiBQiDAx4oeFrSyhLkBE3KHexVAq2HKJ3FwdgWAxk3CzXEhIWtCKNTZ3VFA1qDCC0gjEYxpPQ
NLzbWBK/HeSDyj3jGIAQTSgAtcsuM6B0H7Mi5IMFKTwgxQwwDEBUv0+y/72pggMsmpkAcBrhgwwy
/PdHuWzf0PdUgjfWQ2lFUaFxjg5s21QBbxfxUdMTGQGsmTlGmdkOOyhQQdwa4UDF1QkCLSJ2l/YQ
QRFhtw7EBDDAQCMNMvmcoBpIvI2fAjUJAXMBREA9g3JqaN3UDEx4LdcOE6S0URBrK0hDFVQ4wACu
GhdQRQiChSCE4g/5YMKmC8fwQwBWTjBDADMqOMH6RQkURA4FwB9PavCDAQRgBlRAQgfgA4OGNYUB
nuHCuDaCgwlogQlMAEANAgCAHMRAfABE0A1MEAAGxCwHUHgCACYYuinoxQovmEwUTDCGLEQhCgBQ
ghK4MIABmCALL4ACFGheQMQ0sM8hEiCiEqGgwycocQtKNAEDmGCEMThRiTFk4UMk8AYdKkEAOQCi
EgEQBSVegQsf8UEZykjEKCBAZyaRgQu1AIUscCEHOmzAHGzQNB/Y4I9HNIkNqLCbKggBjv1LpCIX
OZGAAAAh+QQJAAB/ACwAAAAAMgAyAAAI/wD/CBxIsKDBgwgTKlzIsKHDg0BwGAQiROJDhjqAJITA
QONAIAVg2LjIUAYAOQgdwKBCEEEMPwZ0kFz4xYoQgzJq+CHiQ6AMBzRi3Lg5M6EPLFGIDjRyw88N
ln+E0LgRAKbFoge/vMCi9M8RP2ADyPhTxc8PE35oIJGSo22VI1dn+pjyRMTNJiOWhOjxoEUIDAz8

 view release on metacpan or  search on metacpan

inc/Module/Install/Fetch.pm  view on Meta::CPAN

41
42
43
44
45
46
47
48
49
50
51
    LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
    # use Net::FTP to get past firewall
    my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
    $ftp->login("anonymous", 'anonymous@example.com');
    $ftp->cwd($path);
    $ftp->binary;
    $ftp->get($file) or (warn("$!\n"), return);
    $ftp->quit;
} }

inc/Module/Install/Fetch.pm  view on Meta::CPAN

58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }
 
        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

403
404
405
406
407
408
409
410
411
412
413
   "allow_dirty" : [
      "Changes",
      "dist.ini"
   ],
   "allow_dirty_match" : [],
   "changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
   "git_version" : "2.38.0",
   "repo_root" : "."
}

META.json  view on Meta::CPAN

427
428
429
430
431
432
433
434
435
436
437
   "allow_dirty" : [
      "Changes",
      "dist.ini"
   ],
   "allow_dirty_match" : [],
   "changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
   "git_version" : "2.38.0",
   "repo_root" : "."
},

META.json  view on Meta::CPAN

445
446
447
448
449
450
451
452
453
454
455
{
   "class" : "Dist::Zilla::Plugin::Git::Tag",
   "config" : {
      "Dist::Zilla::Plugin::Git::Tag" : {
         "branch" : null,
         "changelog" : "Changes",
         "signed" : 0,
         "tag" : "1.130",
         "tag_format" : "%v",
         "tag_message" : "v%V"
      },

 view release on metacpan or  search on metacpan

lib/Acme/Pythonic.pm  view on Meta::CPAN

59
60
61
62
63
64
65
66
67
68
69
70
71
72
# If unsure about the ending indentation level, add an extra
# non-indented line to ensure the stack gets emptied.
push @lines, '1; # added by Acme::Pythonic' if $lines[-1] =~ /^(?:\s|\s*#)/;
 
my ($comment,             # comment in the current line, if any
    $indent,              # indentation of the current logical line
    $id_at_sob,           # identifier at StartOfBlock, for instance "else", or "eval"
    $prev_line_with_code, # previous line with code
    $might_be_modifier,   # flag: current logical line might be a modifier
    $line_with_modifier,  # physical line which started the current modifier
    $joining,             # flag: are we joining lines?
    $unbalanced_paren,    # flag: we opened a paren that remains to be closed
    @stack,               # keeps track of indentation stuff
);

lib/Acme/Pythonic.pm  view on Meta::CPAN

457
458
459
460
461
462
463
464
465
466
467
a subroutine with prototype C<&;$>.
 
 
=head2 Line joining
 
As in Python, you can break a logical line in several physical lines
using a backslash at the end:
 
    my $total = total_products() + \
                total_delivery() + \
                total_taxes()

 view release on metacpan or  search on metacpan

lib/Acme/RJWETMORE/Utils.pm  view on Meta::CPAN

125
126
127
128
129
130
131
132
133
134
135
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
 
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
 
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the

 view release on metacpan or  search on metacpan

lib/Acme/RPC.pm  view on Meta::CPAN

69
70
71
72
73
74
75
76
77
78
 
* Rather than only taking oids to dump/call, also take a path in the tree.
 
* lazy=1 parameter where the last $tree is re-used rather than re-computed.
 
* Should switch to our own recurse logic from Data::Dumper to support these other things.
 
* action=dump on anything; in the case of a coderef, find its source on disc or else deparse it
 
* action=call on coderefs and blessed objects, with an args parameter, or arg1, arg2, arg3, etc, and a method parameter for blessed objs.

lib/Acme/RPC.pm  view on Meta::CPAN

275
276
277
278
279
280
281
282
283
284
285
sub tree {
 
    # first, recurse through stashes starting with main::, then as we hit arrayrefs, hashrefs, and coderefs,
    # recurse into those.
 
    # XXX reworking this a bit.  each node should contain things logically under it as well as a ref to the
    # object that it logically refers to.  items under it are $node{whatever}, and itself is $node{chr(0)} now.
    # so, it follows that given $node{whatever}, $node{whatever}{chr(0)} is the reference for whatever.
    # this way, all nodes are hashes with children and a seperated off reference to the target object.
 
    # scalars can appear in packages, in object instance data, or in code refs.  same for lots of things.

lib/Acme/RPC.pm  view on Meta::CPAN

290
291
292
293
294
295
296
297
298
299
300
# recurse through stashes (happens at the topmost level)
my $object = shift;
my $node = { };
no strict 'refs';
if(! ref($object) and $object =~ m/::$/) {
    # I don't like how each scenario is replicated here, but each is pretty short, after the custom logic for dealing with the stash.
    my $package = $object;
    for my $k (keys %{$package}) {
        next if $k =~ m/main::$/;
        next if $k =~ m/[^\w:]/;
        if($k =~ m/::$/) {

lib/Acme/RPC.pm  view on Meta::CPAN

410
411
412
413
414
415
416
417
418
419
    } elsif( blessed($ob) and UNIVERSAL::isa($ob, 'ARRAY') ) {
        $ob = [ @$ob ];
    } elsif( blessed($ob) and UNIVERSAL::isa($ob, 'SCALAR') ) {
        $ob = \ ${$ob};
    } elsif( blessed($ob) ) {
        $request->print("object not blessed hash, array or scalar... no logic for converting to JSON, sorry"); 
        return;
    }
    return $ob;
}

 view release on metacpan or  search on metacpan

RTB/RTB.pm  view on Meta::CPAN

16
17
18
19
20
21
22
23
24
25
=head1 SYNOPSIS
 
  use Acme::RTB;
  my $robot = Acme::RTB->new({  Name    => 'Anarion PerlBot 1.0',
                                Colour  => 'ff0000 ff0000',
                                Log     => '/home/anarion/perl/rtb/robot.log'} );
 
  $robot->Start;
 
=head1 DESCRIPTION

RTB/RTB.pm  view on Meta::CPAN

34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
=head2 new
 
=back
 
First create an object, you should pass a hashref with the Name, Colour and if you
will the logfile.
 
  my $robot = Acme::RTB->new({  Name    => 'Anarion PerlBot 1.0',
                                Colour  => 'ff0000 ff0000',
                                Log     => '/home/anarion/perl/rtb/robot.log'} );
 
 
=over 4
 
=head2 modify_action

RTB/RTB.pm  view on Meta::CPAN

280
281
282
283
284
285
286
287
288
289
290
My hello botworld:
 
  use Acme::RTB;
  my $robot = Acme::RTB->new({  Name    => 'Anarion PerlBot 1.0',
                                Colour  => 'ff0000 ff0000',
                                Log     => '/home/anarion/perl/rtb/robot.log'} );
 
  $robot->Start;
 
 
Example two:

RTB/RTB.pm  view on Meta::CPAN

297
298
299
300
301
302
303
304
305
306
307
 
use Acme::RTB;
 
my $robot = Acme::RTB->new({    Name    => 'Killer Montses',
                                Colour  => 'ff0000 ff0000',
                                Log     => '/home/anarion/perl/rtb/anarion.log'} );
 
 
$robot->modify_action(  Radar           => \&my_radar    );
 
$robot->modify_action(  GameStarts      => \&my_gamestart);

RTB/RTB.pm  view on Meta::CPAN

425
426
427
428
429
430
431
432
433
434
435
                Colour  => $options->{Colour} || 'ff0000 ff0000',
                Log     => $options->{Log} };
if($options->{Log})
{
        open(LOG,">$options->{Log}")
                or die "Cant write to logfile: $options->{Log}: $!";
        LOG->autoflush(1);
}
 
my $obj = bless $self,$class;
$obj->RobotOption(3,1); # Use Select

 view release on metacpan or  search on metacpan

lib/Acme/Rautavistic/Sort.pm  view on Meta::CPAN

92
93
94
95
96
97
98
99
100
101
102
 
After a single pass of this algorithm, the list will only contain
numbers that are at least as large as the previous number in the
list. In other words, the list will be sorted!  Analysis Dropsort
requires exactly n-1 comparisons to sort a list of length n, making
this an O(n) algorithm, superior to the typical O(n logn) algorithms
commonly used in most applications.
 
Dropsort is what is known in the computer science field as a lossy
algorithm. It produces a fast result that is correct, but at the cost
of potentially losing some of the input data. Although to those not

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

26
27
28
29
30
31
32
33
34
35
36
*
*  2. This file.
*
*  3. The name & version of the module you were trying to build.
*
*  4. A full log of the build that failed.
*
*  5. Any other information that you think could be relevant.
*
*
* For the latest version of this code, please retreive the Devel::PPPort

 view release on metacpan or  search on metacpan

lib/Acme/RemoteINC.pm  view on Meta::CPAN

13
14
15
16
17
18
19
20
21
22
23
bless $self, $class;
foreach my $k ( qw(ftp host user password perl_root) ) 
  { $self->{$k} = $args{$k} if $args{$k} }
unless( $self->{ftp} ) {
    my $ftp = new Net::FTP($self->{host}) or return;
    $ftp->login( $self->{user} => $self->{password} ) or return;
    $self->{ftp} = $ftp;
}
# register ourself in @INC.
push @INC, $self;
return $self;

lib/Acme/RemoteINC.pm  view on Meta::CPAN

93
94
95
96
97
98
99
100
101
102
 
host => $hostname
 
The name of the ftp server.
       
user => $loginname
 
Login user name.
         
password => $pwd

lib/Acme/RemoteINC.pm  view on Meta::CPAN

113
114
115
116
117
118
119
120
121
122
123
          
ftp => $ftp
      
When given as an argument, this overrides use of the otherwise required 
arguments. ftp is then expected to be a Net::FTP object which has already 
been logged in.
 
   NOTE: It is advisable that the call to new be done in a BEGIN block. 
   It is also advisable to load Acme::RemoteINC via require in the BEGIN block.
 
=head2 B<INC>

 view release on metacpan or  search on metacpan

inc/Module/Install/Fetch.pm  view on Meta::CPAN

41
42
43
44
45
46
47
48
49
50
51
    LWP::Simple::mirror($args{url}, $file);
}
elsif (eval { require Net::FTP; 1 }) { eval {
    # use Net::FTP to get past firewall
    my $ftp = Net::FTP->new($host, Passive => 1, Timeout => 600);
    $ftp->login("anonymous", 'anonymous@example.com');
    $ftp->cwd($path);
    $ftp->binary;
    $ftp->get($file) or (warn("$!\n"), return);
    $ftp->quit;
} }

inc/Module/Install/Fetch.pm  view on Meta::CPAN

58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
        unless ($fh->open("|$ftp -n")) {
            warn "Couldn't open ftp: $!\n";
            chdir $dir; return;
        }
 
        my @dialog = split(/\n/, <<"END_FTP");
open $host
user anonymous anonymous\@example.com
cd $path
binary
get $file $file
quit
END_FTP
        foreach (@dialog) { $fh->print("$_\n") }
        $fh->close;
    } }
    else {
        warn "No working 'ftp' program available!\n";
        chdir $dir; return;

 view release on metacpan or  search on metacpan

t/01/lib/Acme/Resume/For/Tester.pm  view on Meta::CPAN

34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
        Good at math.
    },
};
 
education {
    school => 'Capital City Institute of Technology',
    url => 'http://www.ccit.org/',
    location => 'Capital City',
    program => 'Computer Science',
    started => 'September 2, 1987',
    left => 'May 22, 1990',
    description => 'Top of the class.',
};
 
job {
    company => 'Capital City Institute of Technology Cleaners',
    location => 'Capital City',
    role => 'Cleaner',
    started => 'March 15, 1988',
    left => 'May 22, 1990',
    description => 'Making ends meet.',

 view release on metacpan or  search on metacpan

t/pms/Envolve.pm  view on Meta::CPAN

30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
    is          => 'rw',
);
 
sub get_tags {
    my ($self, $first_name, %options) = @_;
    my $command = ($first_name) ? $self->get_login_command($first_name, %options) : $self->get_logout_command;
    my $html = q{
<script type="text/javascript">
    envoSn=%s;
    env_commandString="%s";
</script>
<script type="text/javascript" src="//d.envolve.com/env.nocache.js"></script>
    };
    return sprintf $html, $self->site_id, $command;
}
 
sub get_login_command {
    my ($self, $first_name, %options) = @_;
    my %params = ( fn => $first_name );
    $params{ln} = $options{last_name} if exists $options{last_name};
    $params{pic} = $options{picture_url} if exists $options{picture_url};
    $params{admin} = 't' if exists $options{is_admin} && $options{is_admin};
    return $self->sign_command_string(
        $self->generate_command_string('login', %params)
        );
}
 
sub get_logout_command {
    my ($self) = @_;
    return $self->sign_command_string(
        $self->generate_command_string('logout')
        );
}
 
sub generate_command_string {
    my ($self, $command, %params) = @_;

t/pms/Envolve.pm  view on Meta::CPAN

98
99
100
101
102
103
104
105
106
107
108
109
110
111
    api_key     => $key,
 );
  
 my $html = $chat->get_tags('Joe');
  
 my $command = $chat->get_login_command('Joe');
 
=head1 DESCRIPTION
 
This is a Perl API for the Envolve L<http://www.envolve.com> chat system. If you'd like to see it in use, check out The Lacuna Expanse L<http://www.lacunaexpanse.com>. Currently Envolve has not exposed much functionality, but using this API will allo...
 
=head1 METHODS
 
=head2 new ( api_key => '111-xxx' )

t/pms/Envolve.pm  view on Meta::CPAN

118
119
120
121
122
123
124
125
126
127
128
129
 
The API key provided by Envolve.
 
=back
 
=head2 get_login_command ( first_name , [ options ] )
 
Returns a signed login command string that can be used to log a user into a chat by calling some javascript.
 
 <script type="text/javascript">
    env_executeCommand(command_string_goes_here);
 </script>

t/pms/Envolve.pm  view on Meta::CPAN

157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
=back
 
=back
 
 
=head2 get_logout_command ( )
 
Returns a signed logout command string that can be used to log a user out of a chat by calling some javascript.
 
 <script type="text/javascript">
    env_executeCommand(command_string_goes_here);
 </script>
 
If you prefer you can just inline it into the web page using the C<get_tags> method and pass no params to it.
 
 
=head2 get_tags ( [ first_name, login_options,  ] )
 
Returns some HTML tags that can be inlined into your web page to start the chat. If no parameters are passed in, then the user will be anonymous. If C<first_name> is passed in then the user will be authenticated.
 
=over
 
=item first_name
 
See C<get_login_command>
 
=item login_options
 
See C<get_login_command>
 
=back

 view release on metacpan or  search on metacpan

foo.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
join eval tell rand reverse ord chr eval split xor
uc prototype eval lcfirst join chmod kill eval ref
split sprintf reverse times xor not eval and srand
tell sqrt formline eval ord lcfirst ucfirst length
 glob gmtime exp defined caller or binmode log ord
abs lc sqrt study alarm split time or formline cos
ne rewinddir kill chdir reset prototype split sqrt
ord int localtime abs oct pack pop eq scalar print
telldir open unpack return and unlink write chroot
hex bless utime split chown split close rmdir join
exp fileno getc sleep redo glob mkdir stat ne pack
reverse getpwnam next lstat gethostent and getpgrp
 eq log ord time xor chr undef and eval caller and
printf srand lstat chown chdir syscall open select
eq -w closedir sleep chr split and quotemeta reset
require ne closedir sleep chr undef or pack unpack
length splice shift umask readpipe pos xor defined
 join system and die or do exit if defined require
hex defined undef or sprintf localtime cmp time or
abs time and undef and open exp getc fileno system
caller eof rewinddir readpipe splice shift defined
kill pop wantarray and readlink eof readpipe split
eval warn join study abs localtime oct log time or
reverse xor open 0; print chr ord while readline 0
,;print chr abs length time for cos length getppid

 view release on metacpan or  search on metacpan

lib/Acme/SDUM/Renew.pm  view on Meta::CPAN

99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
 
# Fase 3: Get main page
$res = $browser->get($1);
$res->is_success or die "Error reading from aleph.sdum.uminho.pt (Phase 3)\n";
 
$res->content =~ /href\=\"([^\"]+login-session)\"/
or die "Content not expected (Phase 4)\n";
 
# Fase 4: Get login form
$res = $browser->get($1);
$res->is_success or die "Error reading from aleph.sdum.uminho.pt (Phase 4)\n";
 
my @forms = HTML::Form->parse($res);
my $form = shift @forms;
 
$form->value('bor_id', $username);
$form->value('bor_verification', $password);
 
$res = $browser->request($form->click);
$res->is_success or die "Error submiting login form (Phase 4)\n";
 
# Fase 5: Get Area Pessoal Link
$res->content =~ /rea Pessoal/ or die "Content not expected (check username/password) (Phase 5)\n";
 
$res->content =~ /href\=\"([^\"]+bor\-info)\"/

 view release on metacpan or  search on metacpan

lib/Acme/SGABRIEL/Utils.pm  view on Meta::CPAN

111
112
113
114
115
116
117
118
119
120
121
If your Modified Version has been derived from a Modified Version made
by someone other than you, you are nevertheless required to ensure that
your Modified Version complies with the requirements of this license.
 
This license does not grant you the right to use any trademark, service
mark, tradename, or logo of the Copyright Holder.
 
This license includes the non-exclusive, worldwide, free-of-charge
patent license to make, have made, use, offer to sell, sell, import and
otherwise transfer the Package with respect to any patent claims
licensable by the Copyright Holder that are necessarily infringed by the

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

10
11
12
13
14
15
16
17
18
19
20
[DOCUMENTATION]
 
- Add a .gitignore file
 
- Changelog dates are better written as YYYY.MM.DD and probably ordered in
  the other, descending, direction
  Remark: I have decided to follow the ISO 8601 standard at
  http://www.w3.org/TR/NOTE-datetime
 
- Just use a Makefile.PL and not a Build.PL the latter does not have any

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

10
11
12
13
14
15
16
17
18
19
20
[DOCUMENTATION]
 
- Add a .gitignore file
 
- Changelog dates are better written as YYYY.MM.DD and probably ordered in
  the other, descending, direction
  Remark: I have decided to follow the ISO 8601 standard at
  http://www.w3.org/TR/NOTE-datetime
 
- Just use a Makefile.PL and not a Build.PL the latter does not have any