AnyEvent-FTP

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/anyevent_ftp_server_role_help.t
t/anyevent_ftp_server_role_old.t
t/anyevent_ftp_server_role_transferprep.t
t/anyevent_ftp_server_role_type.t
t/anyevent_ftp_server_unambiguousresponseencoder.t
t/lib/Test2/Tools/ClientTests.pm
t/test_anyeventftpserver.t
tools/issue10.pl
tools/test_client.pl
xt/author/critic.t
xt/author/eol.t
xt/author/no_tabs.t
xt/author/pod.t
xt/author/pod_coverage.t
xt/author/pod_spelling_common.t
xt/author/strict.t
xt/author/version.t
xt/release/changes.t
xt/release/fixme.t

META.json  view on Meta::CPAN

      },
      "runtime" : {
         "requires" : {
            "AnyEvent" : "0",
            "Capture::Tiny" : "0",
            "File::ShareDir::Dist" : "0",
            "File::Which" : "0",
            "File::chdir" : "0",
            "Moo" : "2.0",
            "Path::Class" : "0.26",
            "PerlIO::eol" : "0",
            "Test2::API" : "1.302015",
            "URI" : "0",
            "autodie" : "0",
            "perl" : "5.010"
         }
      },
      "test" : {
         "requires" : {
            "Test2::V0" : "0.000121",
            "perl" : "5.010"

META.yml  view on Meta::CPAN

    - example
    - tools
requires:
  AnyEvent: '0'
  Capture::Tiny: '0'
  File::ShareDir::Dist: '0'
  File::Which: '0'
  File::chdir: '0'
  Moo: '2.0'
  Path::Class: '0.26'
  PerlIO::eol: '0'
  Test2::API: '1.302015'
  URI: '0'
  autodie: '0'
  perl: '5.010'
resources:
  bugtracker: https://github.com/uperl/AnyEvent-FTP/issues
  homepage: https://metacpan.org/pod/AnyEvent::FTP
  repository: git://github.com/uperl/AnyEvent-FTP.git
version: '0.20'
x_contributors:

Makefile.PL  view on Meta::CPAN

    "lib/Test/AnyEventFTPServer.pm"                         => "\$(INST_LIB)/Test/AnyEventFTPServer.pm"
  },
  "PREREQ_PM" => {
    "AnyEvent"             => 0,
    "Capture::Tiny"        => 0,
    "File::ShareDir::Dist" => 0,
    "File::Which"          => 0,
    "File::chdir"          => 0,
    "Moo"                  => "2.0",
    "Path::Class"          => "0.26",
    "PerlIO::eol"          => 0,
    "Test2::API"           => "1.302015",
    "URI"                  => 0,
    "autodie"              => 0
  },
  "TEST_REQUIRES" => {
    "Test2::V0" => "0.000121"
  },
  "VERSION" => "0.20",
  "test"    => {
    "TESTS" => "t/*.t"

Makefile.PL  view on Meta::CPAN

);

my %FallbackPrereqs = (
  "AnyEvent"             => 0,
  "Capture::Tiny"        => 0,
  "File::ShareDir::Dist" => 0,
  "File::Which"          => 0,
  "File::chdir"          => 0,
  "Moo"                  => "2.0",
  "Path::Class"          => "0.26",
  "PerlIO::eol"          => 0,
  "Test2::API"           => "1.302015",
  "Test2::V0"            => "0.000121",
  "URI"                  => 0,
  "autodie"              => 0
);

unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;

dist.ini  view on Meta::CPAN

remove = Path::Class::File
remove = Path::Class::Dir

; optional for testing
remove = Data::HexDump

remove = EV

[Prereqs]
perl        = 5.010
PerlIO::eol = 0
Path::Class = 0

[MetaNoIndex]
directory = example
directory = tools

[InsertExample]

;[=inc::ServerTests]

lib/AnyEvent/FTP/Server/Context.pm  view on Meta::CPAN

__PACKAGE__->define_events(qw( auth ));

has ready => (
  is      => 'rw',
  default => sub { 1 },
);

has ascii_layer => (
  is      => 'rw',
  default => ':raw:eol(CRLF-Native)'
);

sub push_request
{
  my($self, $con, $req) = @_;

  push @{ $self->{request_queue} }, [ $con, $req ];

  $self->process_queue if $self->ready;

share/ppt/ls.pl  view on Meta::CPAN

		$Cols = int($WinCols / $Maxlen) || 1;
		$Rows = int(($#_+$Cols) / $Cols);
		$Mask = sprintf("%%-%ds ", $Maxlen);

		for ($elt = 0; $elt < $Rows * $Cols; $elt++) {
			$Target =  ($elt % $Cols) * $Rows +
			 int(($elt / $Cols));
			$Piece = sprintf($Mask,
			 $Target < ($#SortedEntries + 1) ?
			  $SortedEntries[$Target] : "");
			# don't blank pad to eol of line
			$Piece =~ s/\s+$//
			 if (($elt+1) % $Cols == 0);
			print $Piece;
			print "\n" if (($elt+1) % $Cols == 0);
		}
		print "\n" if (($elt+1) % $Cols == 0);
	}

	# ------ print blank line if -R
	if (exists($Options->{'R'})) {

t/00_diag.t  view on Meta::CPAN

$modules{$_} = $_ for qw(
  AnyEvent
  Capture::Tiny
  ExtUtils::MakeMaker
  File::ShareDir::Dist
  File::ShareDir::Install
  File::Which
  File::chdir
  Moo
  Path::Class
  PerlIO::eol
  Test2::API
  Test2::V0
  URI
  autodie
);

$post_diag = sub {
  use AnyEvent::FTP::Server::Context::FSRW;
  diag "ls[] = ", $_ for AnyEvent::FTP::Server::Context::FSRW::_shared_cmd('ls');
  BEGIN { eval 'use EV' }