Result:
found more than 500 distributions - search limited to the first 2001 files matching your query
( run in 1.501 )
Acme-IsItJSON
view release on metacpan or search on metacpan
lib/Acme/IsItJSON.pod view on Meta::CPAN
Acme::IsItJSON - Is my variable JSON or a Perl data structure?
=head1 SYNOPSIS
use Acme::IsItJSON 'is_it_json';
my $json = '{"zilog":"z80"}';
is_it_json ($json);
my $perl = {zilog => 'z80'};
is_it_json ($json);
=head1 DESCRIPTION
Not sure if your variable is a Perl data structure or a JSON string?
Acme-JMOLLY-Utils
view release on metacpan or search on metacpan
lib/Acme/JMOLLY/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-JTM-Experiment
view release on metacpan or search on metacpan
t/release-changes_has_content.t view on Meta::CPAN
sub _get_changes
{
my $newver = shift;
# parse changelog to find commit message
open(my $fh, '<', $changes_file) or die "cannot open $changes_file: $!";
my $changelog = join('', <$fh>);
if ($encoding) {
require Encode;
$changelog = Encode::decode($encoding, $changelog, Encode::FB_CROAK());
}
close $fh;
my @content =
grep { /^$newver(?:$trial_token)?(?:\s+|$)/ ... /^\S/ } # from newver to un-indented
split /\n/, $changelog;
shift @content; # drop the version line
# drop unindented last line and trailing blank lines
pop @content while ( @content && $content[-1] =~ /^(?:\S|\s*$)/ );
Acme-JWT
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-KeyboardMarathon
view release on metacpan or search on metacpan
Version made by someone other than you, you are nevertheless required
to ensure that your Modified Version complies with the requirements of
this license.
(12) This license does not grant you the right to use any trademark,
service mark, tradename, or logo of the Copyright Holder.
(13) 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
Acme-Labs
view release on metacpan or search on metacpan
lib/Acme/Labs.pm view on Meta::CPAN
L<Acme::Bleach>, L<http://www.animaniacs.info>, your psychiatrist
=head1 AUTHOR
David Green, C<< <plato@cpan.org> >>, with apologies to Damian Conway (or vice versa).
=head1 COPYRIGHT
Copyright (c) 2003, David Green. This module is free software: It may be used,
Acme-Lambda-Expr
view release on metacpan or search on metacpan
lib/Acme/Lambda/Expr/Operators.pm view on Meta::CPAN
package Acme::Lambda::Expr::Log;
use Moose;
extends qw(Acme::Lambda::Expr::UniOp);
sub symbol{
return q{log};
}
sub codify{
my $self = shift;
my $operand = $self->operand;
return sub{ log &{$operand} };
}
__PACKAGE__->meta->make_immutable();
package Acme::Lambda::Expr::Sqrt;
use Moose;
Acme-Lambda
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-Lexical-Thief
view release on metacpan or search on metacpan
@prefix dc: <http://purl.org/dc/terms/> .
@prefix doap: <http://usefulinc.com/ns/doap#> .
@prefix doap-changeset: <http://ontologi.es/doap-changeset#> .
@prefix doap-deps: <http://ontologi.es/doap-deps#> .
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
@prefix xsd: <http://www.w3.org/2001/XMLSchema#> .
<http://dev.perl.org/licenses/>
Acme-LifeUniverseEverything
view release on metacpan or search on metacpan
lib/Acme/LifeUniverseEverything.pm view on Meta::CPAN
\$_[2] ? (\$_[1] $_ "\$_[0]")
: ("\$_[0]" $_ \$_[1]);
} ! for qw( <=> ); # << >> !< <= > >= == != <=> );
$ops{$_} = eval qq ! sub { $_("\$_[0]"); } !
for qw( ~ ! cos sin exp log sqrt );
$ops{abs} = sub { Acme::LifeUniverseEverything->new( abs("$_[0]") ); };
# $ops{atan2} = sub { $_[2] ? atan2($_[1], "$_[0]") : atan2("$_[0]", $_[1]) };
Acme-Lingua-EN-Inflect-Modern
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" : "0.008",
"tag_format" : "%v",
"tag_message" : "v%V"
},
Acme-List-CarCdr
view release on metacpan or search on metacpan
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 Package. If you
Acme-Locals
view release on metacpan or search on metacpan
devel/build_wikidoc.pl view on Meta::CPAN
$parser->filter(
{ input => $source_file,
output => $output_file,
}
);
$self->log_info("Creating $output_file\n");
}
}
}
else {
$self->log_warn(
'Pod::WikiDoc not available. Skipping wikidoc.'
);
}
return;
devel/build_wikidoc.pl view on Meta::CPAN
my ($self, $filename) = @_;
$filename =~ s{(?:\. .*?)\z}{.pod}xms;
return $filename;
}
sub log_warn {
my ($self, @messages) = @_;
for my $message (@messages) {
chomp $message;
$message .= qq{\n};
devel/build_wikidoc.pl view on Meta::CPAN
warn @messages;
return;
}
sub log_info {
my ($self, @messages) = @_;
for my $message (@messages) {
chomp $message;
$message .= qq{\n};
Acme-LookOfDisapproval
view release on metacpan or search on metacpan
inc/MungeInstallers.pm view on Meta::CPAN
sub setup_installer {
my $self = shift;
my @build_files = grep $_->name eq 'Build.PL', @{ $self->zilla->files };
$self->log_fatal('No Build.PL was found to munge!')
if @build_files != 1;
for my $file (@build_files) {
# check for template markers in file content
$self->log_fatal([ 'ran too soon, before %s template(s) evaluated', $file->name ])
if $file->content =~ /\{\{/;
$file->content($file->content . <<'COPY_MODULE');
use utf8;
Acme-Loopy
view release on metacpan or search on metacpan
@prefix dc: <http://purl.org/dc/terms/> .
@prefix doap: <http://usefulinc.com/ns/doap#> .
@prefix doap-changeset: <http://ontologi.es/doap-changeset#> .
@prefix doap-deps: <http://ontologi.es/doap-deps#> .
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
@prefix xsd: <http://www.w3.org/2001/XMLSchema#> .
<http://dev.perl.org/licenses/>
Acme-Lou
view release on metacpan or search on metacpan
author/loucsv.pl view on Meta::CPAN
useage:
cat mecab-ipadic-2.7.0-20060707/*.csv | perl loucsv.pl > lou.csv
original:
http://chasen.org/~taku/blog/archives/2007/01/_mecab.html
=cut
my $ja2kana = get_ja2kana();
Acme-Lvalue
view release on metacpan or search on metacpan
lib/Acme/Lvalue.pm view on Meta::CPAN
? $_[1]
: 1
: undef
}
],
[exp => sub { log $_[0] }],
[hex => sub { sprintf '%x', $_[0] }],
[length =>
sub {
my ($n, $x) = @_;
my $l = length $x;
$n <= $l
? substr $x, 0, $n
: $x . "\0" x ($n - $l)
}
],
[log => sub { exp $_[0] }],
[oct => sub { sprintf '%o', $_[0] }],
[ord => sub { chr $_[0] }],
[quotemeta => sub { $_[0] =~ s/\\(.)/$1/sgr }],
[reverse => sub { scalar reverse $_[0] }],
[sin => sub { asin $_[0] }],
lib/Acme/Lvalue.pm view on Meta::CPAN
L<C<cos>|perlfunc/cos>,
L<C<defined>|perlfunc/defined>,
L<C<exp>|perlfunc/exp>,
L<C<hex>|perlfunc/hex>,
L<C<length>|perlfunc/length>,
L<C<log>|perlfunc/log>,
L<C<oct>|perlfunc/oct>,
L<C<ord>|perlfunc/ord>,
L<C<quotemeta>|perlfunc/quotemeta>,
L<C<reverse>|perlfunc/reverse>,
L<C<sin>|perlfunc/sin>,
Acme-MCP
view release on metacpan or search on metacpan
CODE_OF_CONDUCT.md view on Meta::CPAN
community include:
* Demonstrating empathy and kindness toward other people
* Being respectful of differing opinions, viewpoints, and experiences
* Giving and gracefully accepting constructive feedback
* Accepting responsibility and apologizing to those affected by our mistakes,
and learning from the experience
* Focusing on what is best not just for us as individuals, but for the
overall community
Examples of unacceptable behavior include:
CODE_OF_CONDUCT.md view on Meta::CPAN
**Community Impact**: Use of inappropriate language or other behavior deemed
unprofessional or unwelcome in the community.
**Consequence**: A private, written warning from community leaders, providing
clarity around the nature of the violation and an explanation of why the
behavior was inappropriate. A public apology may be requested.
### 2. Warning
**Community Impact**: A violation through a single incident or series
of actions.
Acme-MITHALDU-BleedingOpenGL
view release on metacpan or search on metacpan
BleedingOpenGL.pm view on Meta::CPAN
GL_LIGHT5
GL_LIGHT6
GL_LIGHT7
GL_EXT_abgr
GL_EXT_blend_color
GL_EXT_blend_logic_op
GL_EXT_blend_minmax
GL_EXT_blend_subtract
GL_EXT_convolution
GL_EXT_histogram
GL_EXT_polygon_offset
Acme-MJD-FR
view release on metacpan or search on metacpan
lib/Acme/MJD/FR.pm view on Meta::CPAN
#11941 Bien sûr que ça marche pas! C'est parce que tu sais pas ce que tu fais!
#11942 Oui, mais il faut comprendre un peu, aussi.
#11943 Oui, et tu es le premier a avoir remarqué ce bug depuis 1987. C'est cela.
#11944 Oui, c'est ce qu'il est censé faire quand tu dis ça.
#11945 Tu t'attendais à quoi ?
#11946 Tu sembles perdre de vue que ceci est de l'ingénierie logicielle, et non une sorte de rituel vaudou.
#11947 Ce genre de chose peut se vérifier expérimentalement tu sais.
#11948 Peut-être que ton vistemboir est bouché.
#11949 Ca fait quoi quand t'essayes ?
#11950 C'est de la pure superstition.
#11951 Votre question a dépassé la limite système du nombre de pronoms permis pour une seule phrase. Déréférencez et réessayez de nouveau.
Acme-MJD
view release on metacpan or search on metacpan
lib/Acme/MJD.pm view on Meta::CPAN
#11943 Ah yes, and you are the first person to have noticed this bug since 1987. Sure.
#11944 Yes, that's what it's supposed to do when you say that.
#11945 Well, what did you expect?
#11946 Perhaps you have forgotten that this is an engineering discipline, not some sort of black magic.
#11947 You know, this sort of thing is amenable to experimental observation.
#11948 Perhaps your veeblefitzer is clogged.
#11949 What happens when you try?
#11950 Now you are just being superstitious.
#11951 Your question has exceeded the system limit for pronouns in a single sentence. Please dereference and try again.
#11952 In my experience that is a bad strategy, because the people who ask such questions are the ones who paste the answer into their program without understanding it and then complain that it `does not work'.
#11953 Of course, this is a heuristic, which is a fancy way of saying that it doesn't work.
Acme-MUDLike
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
# * /goto should put you inside an arbitrary object, /look should list as exits and/or items the object references contained by that object
# in other words, break away from our rigid API for inventory/room/etc.
#
# * need a black list black list, so we can re-add ourself to things that get serialized by Acme::State even though we're in %INC
#
# * need an error log viewabe by all.
#
# * eval and its output should be sent to the whole room.
#
# * Better account management.
#
lib/Acme/MUDLike.pm view on Meta::CPAN
#
# * /list (like look, but with stringified object references)
#
# * /mark <n> ... or... /mark <stringified obj ref>
#
# * messages still in duplicate when the same player logs in twice; make room's tell_object operate uniquely.
#
# * messages in triplicate because each player has three routines and is inserted into the floor three times. oops.
#
# * build the ajax.chat.js into source. -- okay, test.
#
lib/Acme/MUDLike.pm view on Meta::CPAN
return $_[0]->url->path =~ m/\.(jpg|jpeg|gif|png|css|ico|js)$/
};
$continuity = $args{continuity} || Continuity->new(
staticp => sub { $staticp->(@_); },
callback => sub { login(@_) },
path_session => 1,
port => 2000,
%args,
);
lib/Acme/MUDLike.pm view on Meta::CPAN
};
}
sub footer { qq{</body></html>\n}; }
sub login {
my $request = shift;
#
# per-user variables
lib/Acme/MUDLike.pm view on Meta::CPAN
$request->print(Acme::MUDLike::data->jquery());
return;
}
#
# login
#
while(1) {
my $nick_tmp = $request->param('nick');
my $admin_tmp = $request->param('admin');
lib/Acme/MUDLike.pm view on Meta::CPAN
$player = $players->named($nick) || $players->insert(Acme::MUDLike::player->new(name => $nick), );
$player->request = $request;
# @_ = ($player, $request,); goto &{Acme::MUDLike::player->can('command')};
$player->command($request); # doesn't return
}
# warn "trying login again XXX";
$nick_tmp ||= ''; $admin_tmp ||= '';
$nick_tmp =~ s/[^a-z]//gi; $admin_tmp =~ s/[^a-z0-9]//gi;
$request->print(
header, # $msg,
qq{
lib/Acme/MUDLike.pm view on Meta::CPAN
sub command {
my $self = shift;
my $request = shift;
# this is called by login() immediately after verifying credientials
if($request->request->url->path =~ m/pushstream/) {
# warn "pushstream path_session handling XXX";
my $w = Coro::Event->var(var => \$got_message, poll => 'w');
while(1) {
lib/Acme/MUDLike.pm view on Meta::CPAN
#
# chat/commands
#
if($request->param('action') and $request->param('action') eq 'chat') {
# chat messages first so they appear in the log below
# there's only one action defined right now -- chat. everything else hangs off of that.
my $msg = $request->param('message');
$self->parse_command($msg);
};
lib/Acme/MUDLike.pm view on Meta::CPAN
<!-- <input type="submit" name="sendbutton" value="Send" id="sendbutton"> -->
<input type="submit" name="sendbutton" value="Send" id="sendbutton">
<span id="status"></span>
</form>
<br>
<div id="log">@{[ $self->get_html_messages ]}</div>
});
};
} continue {
$request->print(footer);
lib/Acme/MUDLike.pm view on Meta::CPAN
Create instances of objects, give them to people, drop them on the floor.
The idea is take the simple command line interface and extend it with more commands,
and to create tools and helper objects that inspect and modify the running program from within.
It fires up a Continuity/HTTP::Daemon based Web server on port 2000 and prints out a login
URL on the command line.
Paste the URL into your browser.
Chat with other users logged into the app.
Messages beginning with a slash, C</>, are interpreted as commands:
=over 2
=item C<< /look >>
lib/Acme/MUDLike.pm view on Meta::CPAN
/mark foo::bar
/mark 0x812ea54
Select an object as the logical current object by name, package name, number (as a position in your
inventory list, which is useful for when you've cloned an object that does not define an C<id> or C<name> function),
or by memory address (as in C<< Foo::Bar=HASH(0x812ea54) >>).
=item C<< /call >>
lib/Acme/MUDLike.pm view on Meta::CPAN
Calling C<tell_object> in the environment sends the message to all players.
Objects define various other methods.
=item C<< /who >>
List of who is logged in. Currently the same C</look>.
=item C<< /inventory >>
Or C</i> or C</inv>. Lists the items you are carrying.
lib/Acme/MUDLike.pm view on Meta::CPAN
to C<< Continuity->new() >>.
=item C<password>
Optional. Password to use.
Everyone gets the same password, and anyone with the password can log in with any name.
Otherwise one is pseudo-randomly generated and printed to C<stdout>.
=cut
=head1 HISTORY
lib/Acme/MUDLike.pm view on Meta::CPAN
=item L<Acme::SubstituteSubs>
L<Acme::State> preserves state across runs and L<Acme::SubstituteSubs>.
These three modules work on their own but are complimentary to each other.
Using L<Acme::SubstituteSubs>, the program can be modified in-place without being restarted,
so you don't have to log back in again after each change batch of changes to the code.
Code changes take effect immediately.
L<Acme::State> persists variable values when the program is finally stopped and restarted.
L<Acme::State> will also optionally serialize code references to disc, so you can
C<eval> subs into existance and let it save them to disc for you and then later
use L<B::Deparse> to retrieve a version of the source.
lib/Acme/MUDLike.pm view on Meta::CPAN
do_request('/pushstream/?nick=' + nick + '&admin=' + admin, got_update);
}
function got_update(txt) {
document.getElementById('status').innerHTML = 'Got update.'
if(document.getElementById("log").innerHTML != txt)
document.getElementById("log").innerHTML = txt;
setup_poll();
}
// This stuff gets executed once the document is loaded
$(function(){
lib/Acme/MUDLike.pm view on Meta::CPAN
// We also send messages using AJAX
function send_message() {
var nick = $('#nick').val();
var admin = $('#admin').val();
var message = $('#message').val();
$('#log').load('/sendmessage', {
nick: nick,
admin: admin,
action: 'ajaxchat',
message: message
}, function() {
lib/Acme/MUDLike.pm view on Meta::CPAN
if ( jQuery.browser.mozilla || jQuery.browser.opera )
// Use the handy event callback
document.addEventListener( "DOMContentLoaded", jQuery.ready, false );
// If IE is used, use the excellent hack by Matthias Miller
// http://www.outofhanwell.com/blog/index.php?title=the_window_onload_problem_revisited
else if ( jQuery.browser.msie ) {
// Only works if you document.write() it
document.write("<scr" + "ipt id=__ie_init defer=true " +
"src=//:><\/script>");
Acme-Machi
view release on metacpan or search on metacpan
lib/Acme/Machi.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-Mandolion-Utils
view release on metacpan or search on metacpan
lib/Acme/Mandolion/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-Marvel-CinematicUniverse-Characters
view release on metacpan or search on metacpan
@prefix dc: <http://purl.org/dc/terms/> .
@prefix doap: <http://usefulinc.com/ns/doap#> .
@prefix doap-changeset: <http://ontologi.es/doap-changeset#> .
@prefix doap-deps: <http://ontologi.es/doap-deps#> .
@prefix foaf: <http://xmlns.com/foaf/0.1/> .
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
@prefix xsd: <http://www.w3.org/2001/XMLSchema#> .
<http://dev.perl.org/licenses/>
Acme-Math-Josan
view release on metacpan or search on metacpan
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-Matt-Daemon
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-MetaSyntactic-Themes
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/buffy.pm view on Meta::CPAN
Acme::MetaSyntactic::buffy - The Buffy theme
=head1 DESCRIPTION
The characters from London.pm's favorite serial.
Courtesy of L<http://buffyology.johnhorner.nu/>.
=head1 CONTRIBUTOR
Rafael Garcia-Suarez.
lib/Acme/MetaSyntactic/buffy.pm view on Meta::CPAN
=item *
2006-05-31
Mail from John Horner informing of the new address of the buffyology web site.
=item *
2005-02-07
Acme-MetaSyntactic-buzzwords
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/buzzwords.pm view on Meta::CPAN
ballpark_figure business_to_business b2b business_to_consumer b2c
best_of_breed best_practices bizmeth brand brick_and_mortar
buzzword_compliant client_centric co_opetition customer_centric
downsizing drinking_the_kool_aid eat_their_own_dog_food enterprise
event_horizon eyeballs free_value fulfilment_issues granular
herding_cats logistics long_tail low_hanging_fruit make_it_pop mindshare
new_economy next_generation offshoring return_on_investment roi
reverse_fulfilment rightshoring share_options solution sox
sarbanes_oxley value_added visibility
aggregator ajax bandwidth benchmarking backend beta bleeding_edge blog
bricks_and_clicks clickthrough client_server collaboration
content_management content_management_system convergence cross_platform
design_patterns digital_divide remastering digital_rights_management drm
digital_signage document_management dot_bomb download elearning
enterprise_content_management enterprise_service_bus framework
folksonomy fuzzy_logic immersion information_superhighway
information_highway mobile modularity nanotechnology netiquette
next_generation nextgen podcasting portal realtime saas scalability
social_bookmarking social_software spam struts sync_up tagging
user_generated_content virtualization vlogging vortal web_20 webinar
weblog web_services wikiality workflow
information_society political_capital stakeholder truthiness
best_in_class triptronic
Acme-MetaSyntactic
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic.pm view on Meta::CPAN
=item *
Sébastien Aperghis-Tramoni,
who actually uses it, to do what he thinks is the only logical thing
to do with C<Acme::MetaSyntactic>: an IRC bot! See L<Bot::MetaSyntactic>.
#perlfr Sat Mar 5 01:15 CET 2005
<Maddingue> BooK: bon, l'API de AMS, tu l'as changé alors ?
<BooK> je sais pas
<Maddingue> comment on fait pour invoquer ton merder
<BooK> ca se mélange dans ma tete
<BooK> je peux te montrer des use case
<Maddingue> je veux juste savoir si tu vas changer la commande meta
<Maddingue> BooK: parce que j'ai fais la seule chose qui me semblait
logique de faire avec ton module
<BooK> un robot irc
=item *
Jérôme Fenal,
( run in 1.501 second using v1.01-cache-2.11-cpan-eca53f54451 )