Result:
found more than 489 distributions - search limited to the first 2001 files matching your query
( run in 0.701 )
Acme-Pano-Util
view release on metacpan or search on metacpan
lib/Acme/Pano/Util.pm view on Meta::CPAN
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
Acme-People-Happy
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
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
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;
Acme-Perl-Consensual
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
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
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;
Acme-Perl-VM
view release on metacpan or search on metacpan
lib/Acme/Perl/VM.pm view on Meta::CPAN
our $PL_last_in_gv;
our @PL_ppaddr;
our $color = 'GREEN BOLD'; # for debugging log
sub not_implemented;
{
my $i = 0;
Acme-PerlML
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
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
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;
Acme-PerlTidy
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
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
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;
Acme-Phlegethoth
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
},
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'
),
},
);
Acme-Pi-Abrahamic
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
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
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;
Acme-Pi
view release on metacpan or search on metacpan
inc/MyCheckVersionIncremented.pm view on Meta::CPAN
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
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;
Acme-Pills
view release on metacpan or search on metacpan
lib/Acme/Pills.pm view on Meta::CPAN
# 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
Acme-Pinoko
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
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
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;
Acme-Pointer
view release on metacpan or search on metacpan
lib/Acme/ppport.h view on Meta::CPAN
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
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
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
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|||
Acme-Pony-Pink
view release on metacpan or search on metacpan
lib/Acme/Pony/Pink.pm view on Meta::CPAN
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
Acme-PrettyCure
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
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
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;
Acme-ProgressBar
view release on metacpan or search on metacpan
"allow_dirty" : [
"Changes",
"dist.ini"
],
"allow_dirty_match" : [],
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
"git_version" : "2.38.0",
"repo_root" : "."
}
"allow_dirty" : [
"Changes",
"dist.ini"
],
"allow_dirty_match" : [],
"changelog" : "Changes"
},
"Dist::Zilla::Role::Git::Repo" : {
"git_version" : "2.38.0",
"repo_root" : "."
},
{
"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"
},
Acme-Pythonic
view release on metacpan or search on metacpan
lib/Acme/Pythonic.pm view on Meta::CPAN
# 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
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()
Acme-RJWETMORE-Utils
view release on metacpan or search on metacpan
lib/Acme/RJWETMORE/Utils.pm view on Meta::CPAN
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
Acme-RPC
view release on metacpan or search on metacpan
lib/Acme/RPC.pm view on Meta::CPAN
* 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
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
# 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
} 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;
}
Acme-RTB
view release on metacpan or search on metacpan
=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
=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
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:
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);
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
Acme-Rautavistic-Sort
view release on metacpan or search on metacpan
lib/Acme/Rautavistic/Sort.pm view on Meta::CPAN
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
Acme-Ref
view release on metacpan or search on metacpan
*
* 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
Acme-RemoteINC
view release on metacpan or search on metacpan
lib/Acme/RemoteINC.pm view on Meta::CPAN
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
host => $hostname
The name of the ftp server.
user => $loginname
Login user name.
password => $pwd
lib/Acme/RemoteINC.pm view on Meta::CPAN
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>
Acme-Replica
view release on metacpan or search on metacpan
inc/Module/Install/Fetch.pm view on Meta::CPAN
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
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;
Acme-Resume
view release on metacpan or search on metacpan
t/01/lib/Acme/Resume/For/Tester.pm view on Meta::CPAN
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.',
Acme-ReturnValue
view release on metacpan or search on metacpan
t/pms/Envolve.pm view on Meta::CPAN
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
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
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
=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
Acme-RunDoc
view release on metacpan or search on metacpan
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
Acme-SDUM-Renew
view release on metacpan or search on metacpan
lib/Acme/SDUM/Renew.pm view on Meta::CPAN
# 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)\"/
Acme-SGABRIEL-Utils
view release on metacpan or search on metacpan
lib/Acme/SGABRIEL/Utils.pm view on Meta::CPAN
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
Acme-SList-Scheduler
view release on metacpan or search on metacpan
[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
Acme-SList-Utilities
view release on metacpan or search on metacpan
[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
( run in 0.701 second using v1.01-cache-2.11-cpan-beeb90c9504 )