view release on metacpan or search on metacpan
eg/bmi.psgi view on Meta::CPAN
{"attribute":"Valiemon::Attributes::Required","position":"/required"}
% curl -X POST -H "Content-type: application/json" -d '{"weight": 60}' http://localhost:5000/bmi
{"attribute":"Valiemon::Attributes::Required","position":"/required"}
You can read the document of API at L<http://localhost:5000/doc/>
view release on metacpan or search on metacpan
lib/ARS/Simple.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/ARS-Simple>
=item * Search CPAN
L<http://search.cpan.org/dist/ARS-Simple/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/ARSObject.pm view on Meta::CPAN
print $s->{-cgi}->header(-content=>'text/html'
,($ENV{SERVER_SOFTWARE}||'') =~/IIS/ ? (-nph=>1) : ()
)
, "<h1>Error:</h1>"
, $s->{-cgi}->escapeHTML($_[0])
, "<br />\n"
if $s && $s->{-cgi}
}
$s->DESTROY() if $s;
$s =undef;
# $SIG{__DIE__} =$sigdie;
lib/ARSObject.pm view on Meta::CPAN
sub cgiselect { # CGI selection field composition
# -onchange=>1 reloads form
my ($s, %a) =@_;
my $cs =$a{-onchange} && (length($a{-onchange}) ==1);
($cs
? '<input type="hidden" name="' .$a{-name} .'__C_" value="" />'
: '')
.$s->{-cgi}->popup_menu(%a
, $a{-labels} && !$a{-values}
? (-values => do{use locale; [sort {$a{-labels}->{$a} cmp $a{-labels}->{$b}} keys %{$a{-labels}}]})
: ()
lib/ARSObject.pm view on Meta::CPAN
, ($a{-strict} && !$s->{-cgi}->param("${n}__O_")
? (-readonly=>1) # ,-hidefocus=>0, -disabled=>0
: ())
)
.($s->{-cgi}->param("${n}__O_")
? ("<input type=\"submit\" name=\"${n}__X_\" value=\"X\" title=\"close\"$ac$as />"
."<input type=\"hidden\" name=\"${n}__P_\" value=\"" .(defined($v) ? $s->{-cgi}->escapeHTML($v) : '') ."\"$ac$as />\n"
."<br />\n"
."<select name=\"${n}__L_\" title=\"select value\" size=\"10\""
."$ac$as"
." ondblclick=\"{${n}__S_.focus(); ${n}__S_.click(); return(true)}\""
." onkeypress=\"" .($s->{-cgi}->user_agent('MSIE') ? &$fs(1) : &$fs(2))
."\">\n"
lib/ARSObject.pm view on Meta::CPAN
: defined($a{-labels}->{$_})
? (length($a{-labels}->{$_}) > $aw ? substr($a{-labels}->{$_},0,$aw) .'...' : $a{-labels}->{$_})
: '') ."</option>\n"
} @{&$av()})
."</select>\n"
."<input type=\"submit\" name=\"${n}__S_\" value=\"<\" title=\"set\"$ac$as />"
.$s->{-cgi}->button(-value=>'...', -title=>'find', -onClick=>&$fs(3))
."<input type=\"submit\" name=\"${n}__X_\" value=\"X\" title=\"close\"$ac$as />"
."</div>\n"
."<script for=\"window\" event=\"onload\">{window.document.forms[0].${n}__L_.focus()}</script>"
)
: ("<input type=\"submit\" name=\"${n}__O_\" value=\"...\" title=\"open\"$ac$as />"
.($s->{-cgi}->param("${n}__C_") ||$s->{-cgi}->param("${n}__X_")
? "<script for=\"window\" event=\"onload\">{window.document.forms[0].${n}__O_.focus()}</script>"
: ''
))
)
lib/ARSObject.pm view on Meta::CPAN
? $cmsg
: ($s->{-lang} ||'') =~/^ru/i
? {'Error'=>'Îøèáêà', 'Warning'=>'Ïðåäóïðåæäåíèå', 'Success'=>'Óñïåøíî'
,'Executing'=>'Âûïîëíåíèå', 'Done'=>'Âûïîëíåíî'}
: {};
$cmsg =sub{"\n<br /><font style=\"font-weight: bolder\""
.($_[1] =~/^(?:Error|Warning)/ ? ' color="red"' : '')
.'>'
.(defined($_[1]) ? $_[0]->{-cgi}->escapeHTML($hmsg->{$_[1]} ||$_[1]) : 'undef')
.": "
.(defined($_[2]) ? $_[0]->{-cgi}->escapeHTML($hmsg->{$_[2]} ||$_[2]) : 'undef')
lib/ARSObject.pm view on Meta::CPAN
my $u =cfpused($s, $f);
next if $u && !($f->{-hidden} ||((ref($f->{-values}) eq 'ARRAY') && !scalar(@{$f->{-values}})));
print defined(cfpvp($s, $f))
? '<input type="hidden" name="' .$f->{-namecgi} .'__PV_" value="'
.$s->{-cgi}->escapeHTML(cfpvp($s, $f))
.'" />' ."\n"
: ''
, !$u
? ( defined($s->{-cgi}->param($f->{-namecgi}))
? '<input type="hidden" name="' .$f->{-namecgi} .'" value="'
.$s->{-cgi}->escapeHTML($s->{-cgi}->param($f->{-namecgi}))
.'" />' ."\n"
: '')
: defined(cfpvv($s, $f))
? '<input type="hidden" name="' .$f->{-namecgi} .'" value="'
.$s->{-cgi}->escapeHTML(cfpvv($s, $f))
.'" />' ."\n"
: '';
}
print ref($cfld0) ? &{$cfld0}($s) : $cfld0;
my $bb ='';
foreach my $f (@{$s->{-fpl}}) {
lib/ARSObject.pm view on Meta::CPAN
? &{$f->{-widget0}}($s, $f, cfpvv($s, $f), cfpvp($s, $f))
: $f->{-widget0})
. (!($f->{-action} || $f->{-preact}) && $f->{-namecgi} && defined(cfpvp($s, $f))
? '<input type="hidden" name="' .$f->{-namecgi} .'__PV_" value="'
.$s->{-cgi}->escapeHTML(cfpvp($s, $f))
.'" />'
: ''
)
. (!ref($f->{-widget}) && exists($f->{-widget})
? $f->{-widget}
: ref($f->{-widget}) eq 'CODE'
view release on metacpan or search on metacpan
infra/mkchanges.pl view on Meta::CPAN
s/<[\/]{0,1}U>/_/gi;
$bq = 1 if(/\<BLOCKQUOTE\>/i);
$bq = 0 if(/\<\/BLOCKQUOTE>/i);
s/<[\/]{0,1}BLOCKQUOTE>/\ /gi;
s/<[\/]{0,1}BR>/\ /gi;
s/>/>/g;
s/</</g;
s/\r//g;
if(/^$/) {
print "\n\n";
view release on metacpan or search on metacpan
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
if ( $self->{_mailType} ) {
use Time::Local;
my ($localYear, $localMonth, $currentYear, $currentMonth, $currentDay, $currentHour, $currentMin, $currentSec) = ((localtime)[5], (localtime)[4], ((localtime)[5] + 1900), ((localtime)[4] + 1), (localtime)[3,2,1,0]);
my $mailEpochtime = timelocal($currentSec, $currentMin, $currentHour, $currentDay, $localMonth, $localYear);
$message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?><!DOCTYPE FingerprintEmail SYSTEM \"dtd/FingerprintEmail-1.0.dtd\"><FingerprintEmail><Schema Value=\"1.0\"/><Fingerprint From=\"". $self->{_mail}->{from} ."\" To=\"". $self->{_mail}->{to} ."\"...
} else {
use ASNMTAP::Time qw(&get_datetimeSignal);
$message = $self->{_subject_} ."\n". $self->{_branding_} ."\n". $self->{_timestamp_} .' '. get_datetimeSignal() ."\n". $self->{_status_} ."\n";
}
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
}
if ( $brandingNotFound ) {
if ( $msgline =~ /$$asnmtapInherited->{_programName}/ ) {
if ( $debug ) {
my $msglineDebug = $msgline; $msglineDebug =~ s/</< /g; $msglineDebug =~ s/>/ >/g;
print "Branding : $msglineDebug\n";
}
$brandingNotFound = ( $msgline !~ /^$self->{_branding_}/ );
my $label = $brandingNotFound ? ' (?)' : '(match)';
if ( $debug ) {
my $msglineDebug = $msgline; $msglineDebug =~ s/</< /g; $msglineDebug =~ s/>/ >/g;
print " $label : $msglineDebug\n";
}
unless ( $brandingNotFound ) { $fingerprintFound--; next; }
}
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
}
if ( $fingerprintFound == 1 and $statusNotFound ) {
if ( $msgline =~ /^$self->{_text}->{status}/ ) {
if ( $debug ) {
my $msglineDebug = $msgline; $msglineDebug =~ s/</< /g; $msglineDebug =~ s/>/ >/g;
print "Status .. : $msglineDebug\n";
}
$statusNotFound = ( $msgline !~ /^$self->{_text}->{status}\s*<$self->{_mail}->{status}>/ );
my $label = $statusNotFound ? ' (?)' : '(match)';
view release on metacpan or search on metacpan
@args = @{$args[0]} and $flag++ if ref $args[0] eq "ARRAY";
map {
s/&/&/gi;
s/"/"/gi;
s/ / /gi;
s/>/>/gi;
s/</</gi;
s/&#(\d+);/chr($1)/ge;
s/&#x([0-9a-f]+);/chr(hex($1))/gi;
} @args;
$flag ? \@args : @args;
view release on metacpan or search on metacpan
lib/ASP4/PSGI.pm view on Meta::CPAN
While I wouldn't B<yet> run a high-traffic ASP4 web application in this way, it works
very well for smaller tools and apps.
=head1 SEE ALSO
L<Plack>, L<PSGI>, L<http://plackperl.org/>
=head1 SPECIAL THANKS TO
* Tatsuhiko Miyagawa - The man behind Plack and PSGI.
lib/ASP4/PSGI.pm view on Meta::CPAN
Use RT L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=ASP4-PSGI> to submit bug reports.
=head1 HOMEPAGE
Please visit the ASP4 homepage at L<http://0x31337.org/code/> to see examples
of ASP4 in action.
=head1 AUTHOR
John Drago <jdrago_999@yahoo.com>
view release on metacpan or search on metacpan
lib/ASP4.pm view on Meta::CPAN
The C<$Server> object offers a few utility methods that don't really fit anywhere else.
=head3 $Server->HTMLEncode( $string )
Given a string like C<< <br/> >> returns a string like C<< <br/> >>
=head3 $Server->HTMLDecode( $string )
Given a string like C<< <br/> >> returns a string like C<< <br/> >>
=head3 $Server->URLEncode( $string )
Given a string like C<< billg@microsoft.com >> returns a string like C<< billg%40microsoft.com >>
lib/ASP4.pm view on Meta::CPAN
<%@ MasterPage %>
<!DOCTYPE html>
<html>
<head>
<title><asp:ContentPlaceHolder id="meta_title"></asp:ContentPlaceHolder></title>
<meta charset="utf-8" />
</head>
<body>
<h1><asp:ContentPlaceHolder id="headline"></asp:ContentPlaceHolder></h1>
<asp:ContentPlaceHolder id="main_content"></asp:ContentPlaceHolder>
</body>
lib/ASP4.pm view on Meta::CPAN
};
%>
<form id="register_form" method="post" action="/handlers/myapp.register">
<p>
<label>Email:</label>
<input type="text" name="email" value="<%= $Server->HTMLEncode( $Form->{email} ) %>" />
<% $::err->("email"); %>
</p>
<p>
<label>Password:</label>
<input type="password" name="password" />
<% $::err->("password"); %>
</p>
<p>
<label>Confirm Password:</label>
<input type="password" name="password2" />
<% $::err->("password2"); %>
</p>
<p>
<input type="submit" value="Register Now" />
</p>
</form>
</asp:Content>
The form submits to the URL C</handlers/app.register> which means C<handlers/app/register.pm>
lib/ASP4.pm view on Meta::CPAN
<h3>Incoming Messages</h3>
<%
foreach my $msg ( $user->messages_in(undef, { order_by => "created_on ASC"} ) ) {
%>
<div class="msg">
<span class="from"><%= $msg->sender->email %></span> says:<br/>
<div class="body"><%= $Server->HTMLEncode( $msg->body ) %></div>
<span class="date"><%= $msg->created_on %></span>
</div>
<%
}# end foreach()
lib/ASP4.pm view on Meta::CPAN
%>
</select>
</p>
<p>
<label>Subject:</label>
<input type="text" name="subject" maxlength="100" />
</p>
<p>
<label>Message:</label><br/>
<textarea name="body"></textarea>
</p>
<p>
<input type="submit" value="Send Message" />
</p>
</form>
</div>
</asp:Content>
lib/ASP4.pm view on Meta::CPAN
Use RT L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=ASP4> to submit bug reports.
=head1 HOMEPAGE
Please visit the ASP4 homepage at L<http://0x31337.org/code/> to see examples
of ASP4 in action.
=head1 AUTHOR
John Drago <jdrago_999@yahoo.com>
view release on metacpan or search on metacpan
lib/ASP4x/Captcha/Imager.pm view on Meta::CPAN
</head>
<body>
<form action="/handlers/dev.validate" method="post">
<p>
<label>Enter the code you see below:</label>
<input type="text" name="security_code" />
</p>
<p>
<label> </label>
<img id="captcha" src="/handlers/dev.captcha?r=<%= rand() %>" alt="Security Code" />
<a href="" onclick="document.getElementById('captcha').src = '/handlers/dev.captcha?r=' + Math.random(); return false">
(Click for a new Image)
</a>
</p>
<p>
<label> </label>
<input type="submit" value="Submit" />
</p>
</form>
</body>
</html>
lib/ASP4x/Captcha/Imager.pm view on Meta::CPAN
=back
=head2 What About Fonts?
Because Linux systems tend to put fonts in several different places, I recommend
copying the font file (*.ttf) into the C<etc/> folder of your website and referencing it
(just like you see in the C<t/> folder of this distribution and in the SYNOPSIS example above.
Mono-space fonts are recommended over variable-width fonts. So, "Courier New" is
recommended over Verdana.
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/ASP4x/Linker.pm view on Meta::CPAN
no warnings 'uninitialized';
my ($uri) = split /\?/, $s->base_href;
my $context = ASP4::HTTPContext->current;
my $server = $context->server;
my @inputs = map {qq(<input type="hidden" name="@{[ $server->URLEncode( $_ ) ]}" value="@{[ $server->URLEncode( $vars->{$_} ) ]}" />)}
keys %$vars;
return join "\n", @inputs;
}# end hidden_fields()
lib/ASP4x/Linker.pm view on Meta::CPAN
=back
=head2 hidden_fields( [$properties] )
Returns a string of XHTML hidden input fields (<input type="hidden" name="$name" value="$value" />).
Useful if your persistence logic involves repeated form submissions rather than hyperlinks.
The C<$properties> argument is the same as in the C<uri()> method.
view release on metacpan or search on metacpan
lib/ASP4x/Router.pm view on Meta::CPAN
same exact routing behavior for both L<ASP4::API> calls and for normal HTTP requests
handled by the mod_perl interface of your web server.
When a request comes in to Apache, mod_perl will know that C<ASP4x::Router> might
make a change to the URI - so it has C<ASP4x::Router> take a look at the request. If
any changes are made (eg - C</foo/bar/1/> gets changed to C</pages/baz.asp?id=1>)
then the server handles the request just as though C</pages/baz.asp?id=1> had been
requested in the first place.
For testing - if you run this:
lib/ASP4x/Router.pm view on Meta::CPAN
Aside from the "All the cool kids are doing it" argument - you get super SEO features
and mad street cred - all in one shot.
Now, instead of 1998-esque urls like C</page.asp?category=2&product=789&revPage=2> you get
C</shop/marbles/big-ones/reviews/page/4/>
=head2 What about performance?
Unless you have literally B<*thousands*> of different entries in the "C<routing>"
section of your C<conf/asp4-config.json> file, performance should be B<quite> fast.
view release on metacpan or search on metacpan
$text =~ s/\t/ \ \ \ /g;
$text =~ s/ / \ /g;
}
$text =~ s/"/"/g;
$text =~ s/</</g;
$text =~ s/>/>/g;
$text =~ s/'/'/g;
$text =~ s/\)/)/g;
$text =~ s/\(/(/g;
$text =~ s/\\/\/g;
$text =~ s/\|/|/g;
$html =~ s/ \ \ \ /\t/g;
$html =~ s/ \ / /g;
}
$html =~ s/"/"/g;
$html =~ s/</</g;
$html =~ s/>/>/g;
$html =~ s/'/'/g;
$html =~ s/)/\)/g;
$html =~ s/(/\(/g;
$html =~ s/\/\\/g;
$html =~ s/|/\|/g;
view release on metacpan or search on metacpan
lib/AVLTree.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/AVLTree>
=item * Search CPAN
L<http://search.cpan.org/dist/AVLTree/>
=back
=head1 ACKNOWLEDGEMENTS
lib/AVLTree.pm view on Meta::CPAN
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See L<http://dev.perl.org/licenses/> for more information.
=cut
view release on metacpan or search on metacpan
lib/AWS/CLI/Config.pm view on Meta::CPAN
=head1 DESCRIPTION
B<AWS::CLI::Config> provides an interface to access AWS CLI configuration and
credentials. It fetches its values from the appropriate environment variables,
or a credential or config file in the order described in
L<AWS CLI Documents|http://docs.aws.amazon.com/cli/>.
=head1 SUBROUTINES
=head2 access_key_id (Str)
lib/AWS/CLI/Config.pm view on Meta::CPAN
=over 4
=item * L<Net::Amazon::Config>,
=item * L<http://aws.amazon.com/cli/>
=back
=head1 LICENSE
view release on metacpan or search on metacpan
lib/AWS/CLIWrapper.pm view on Meta::CPAN
patches and collaborators are welcome.
=head1 SEE ALSO
L<http://aws.amazon.com/cli/>,
L<https://github.com/aws/aws-cli>,
L<http://docs.aws.amazon.com/AWSEC2/latest/APIReference/Welcome.html>,
L<https://github.com/boto/botocore>,
=head1 LICENSE
view release on metacpan or search on metacpan
lib/AWS/Lambda/Quick.pm view on Meta::CPAN
The name of the Lambda function. Required.
This will become part of the URL that can be used to call this
function so you are strongly encouraged not to use any non-url
safe characters (including C</>, C<?>, etc) in the name.
=item description
The description of the Lambda function (shown in the AWS console, etc.)
lib/AWS/Lambda/Quick.pm view on Meta::CPAN
shell$ sudo ./awscli-bundle/install -i /usr/local/aws -b /usr/local/bin/aws
You'll need to configure awscli with your own personal AWS Access
Key ID and AWS Secret Access Key. You can create these from the AWS
Management console by following the guide on
L<How to quickly find and update your access keys, password, and MFA setting using the AWS Management Console|https://aws.amazon.com/blogs/security/how-to-find-update-access-keys-password-mfa-aws-management-console/>
Once you have your keys you can then use the C<configure> command
to update the aws command line utility.
shell$ aws configure
view release on metacpan or search on metacpan
lib/AWS/Lambda.pm view on Meta::CPAN
--runtime provided.al2023 \
--role arn:aws:iam::xxxxxxxxxxxx:role/service-role/lambda-custom-runtime-perl-role
=head2 Run in Local using Docker
Prebuilt Docker Images based on L<https://hub.docker.com/r/lambci/lambda/> are available.
You can pull from L<https://gallery.ecr.aws/shogo82148/p5-aws-lambda> or L<https://hub.docker.com/r/shogo82148/p5-aws-lambda>,
and build zip archives to deploy.
# Install the dependency.
docker run --rm -v $(PWD):/var/task shogo82148/p5-aws-lambda:build-5.38.al2023 \
lib/AWS/Lambda.pm view on Meta::CPAN
L<Paws> is optional. See the "Paws SUPPORT" section.
=head2 AWS X-Ray SUPPORT
L<AWS X-Ray|https://aws.amazon.com/xray/> is a service that collects data about requests that your application serves.
You can trace AWS Lambda requests and sends segment data with pre-install module L<AWS::XRay>.
use utf8;
use warnings;
use strict;
view release on metacpan or search on metacpan
lib/AWS/S3.pm view on Meta::CPAN
=head1 NAME
AWS::S3 - Lightweight interface to Amazon S3 (Simple Storage Service)
=for html
<a href='https://travis-ci.org/leejo/AWS-S3?branch=master'><img src='https://travis-ci.org/leejo/AWS-S3.svg?branch=master' /></a>
<a href='https://coveralls.io/r/leejo/AWS-S3?branch=master'><img src='https://coveralls.io/repos/leejo/AWS-S3/badge.png?branch=master' alt='Coverage Status' /></a>
=head1 SYNOPSIS
use AWS::S3;
lib/AWS/S3.pm view on Meta::CPAN
If set, will print out debugging information to C<STDERR>.
=head1 SEE ALSO
L<The Amazon S3 API Documentation|http://docs.amazonwebservices.com/AmazonS3/latest/API/>
L<AWS::S3::Bucket>
L<AWS::S3::File>
view release on metacpan or search on metacpan
lib/AXL/Client/Simple.pm view on Meta::CPAN
=over 4
=item C<< server => >> Fully Qualified Domain Name (required)
The host name of the CUCM server to which the module should connect. Note that
the port number 8443 and the path C</axl/> are automatically appended so you
need only provide the FQDN or IP address.
=item C<< username => >> String (required)
The account username under which the module will connect to CUCM. This value
view release on metacpan or search on metacpan
lib/Abilities.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/Abilities>
=item * Search CPAN
L<http://search.cpan.org/dist/Abilities/>
=back
=head1 LICENSE AND COPYRIGHT
view release on metacpan or search on metacpan
Ace/Object.pm view on Meta::CPAN
}
$tagname = $self->_xmlNumber($tagname) if $tagname =~ /^\d/;
unless (defined $self->right) { # lone tag
$$out .= $self->isTag || !$opts->{content} ? qq($tab<$tagname$attributes />\n)
: qq($tab<$tagname$attributes>$content</$tagname>\n);
} elsif ($self->isTag) { # most tags are implicit in the XML tag names
if (!XML_COLLAPSE_TAGS or $self->right->isTag) {
$$out .= qq($tab<$tagname$attributes>\n);
$level = $self->right->_asXML($out,$position,$level+1,$current_tag,$tag_level + !XML_COLLAPSE_TAGS,$opts);
Ace/Object.pm view on Meta::CPAN
sub escapeXML {
my ($self,$string) = @_;
$string =~ s/&/&/g;
$string =~ s/\"/"/g;
$string =~ s/</</g;
$string =~ s/>/>/g;
return $string;
}
sub _xmlNumber {
my $self = shift;
view release on metacpan or search on metacpan
lib/Acme/2zicon.pm view on Meta::CPAN
=over 4
=item * 虹ã®ã‚³ãƒ³ã‚スタドール
L<http://pixiv-pro.com/2zicon/>
=item * プãƒãƒ•ã‚£ãƒ¼ãƒ« - 虹ã®ã‚³ãƒ³ã‚スタドール
L<http://pixiv-pro.com/2zicon/profile>
view release on metacpan or search on metacpan
lib/Acme/ADEAS/Utils.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/Acme-ADEAS-Utils>
=item * Search CPAN
L<http://search.cpan.org/dist/Acme-ADEAS-Utils/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/Acme/ALEXEY/Utils.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/Acme-ALEXEY-Utils>
=item * Search CPAN
L<http://search.cpan.org/dist/Acme-ALEXEY-Utils/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/Acme/APHILIPP/Utils.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/Acme-APHILIPP-Utils>
=item * Search CPAN
L<http://search.cpan.org/dist/Acme-APHILIPP-Utils/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/Acme/ARUHI/Utils.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/Acme-ARUHI-Utils>
=item * Search CPAN
L<http://search.cpan.org/dist/Acme-ARUHI-Utils/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/Acme/AXP/Utils.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/Acme-AXP-Utils>
=item * Search CPAN
L<http://search.cpan.org/dist/Acme-AXP-Utils/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/Acme/AbhiIsNot.pm view on Meta::CPAN
L<http://cpanratings.perl.org/d/Acme-AbhiIsNot>
=item * Search CPAN
L<http://search.cpan.org/dist/Acme-AbhiIsNot/>
=back
=head1 ACKNOWLEDGEMENTS
view release on metacpan or search on metacpan
lib/Acme/Acotie.pm view on Meta::CPAN
=head1 REPOSITORY
svn co http://svn.coderepos.org/share/lang/perl/Acme-Acotie/trunk Acme-Acotie
Acme::Acotie is Subversion repository is hosted at L<http://coderepos.org/share/>.
patches and collaborators are welcome.
=head1 LICENSE
This library is free software; you can redistribute it and/or modify