WebService-Pastefire
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
}
sub autoload {
my $self = shift;
my $who = $self->_caller;
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
Unknown function is found at $file line $line.
inc/Pod/Markdown.pm view on Meta::CPAN
use warnings;
package Pod::Markdown;
{
$Pod::Markdown::VERSION = '1.320';
}
BEGIN {
$Pod::Markdown::AUTHORITY = 'cpan:RWSTAUNER';
}
# ABSTRACT: Convert POD to Markdown
use parent qw(Pod::Parser);
use Pod::ParseLink (); # core
sub initialize {
my $self = shift;
$self->SUPER::initialize(@_);
$self->_private;
$self;
}
sub _private {
lib/WebService/Pastefire.pm view on Meta::CPAN
package WebService::Pastefire;
use 5.008001;
use utf8;
use strict;
use warnings;
use parent 'Class::Accessor::Fast';
__PACKAGE__->mk_accessors(qw!
username password expire url max
!);
use Carp;
use LWP::Simple;
use URI;
our $VERSION = '0.02';
sub new { my $class = shift; #{{{
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.433 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )