Plack-App-MCCS

 view release on metacpan or  search on metacpan

local/lib/perl5/MooseX/Has/Sugar.pm  view on Meta::CPAN

sub bare() {
  return ( 'is', 'bare' );
}







sub ro() {
  return ( 'is', 'ro' );
}







sub rw() {
  return ( 'is', 'rw' );
}







sub required() {

local/lib/perl5/MooseX/Has/Sugar/Minimal.pm  view on Meta::CPAN

sub bare() {
  return ('bare');
}







sub ro() {
  return ('ro');
}







sub rw() {
  return ('rw');
}

1;

__END__

=pod

=encoding UTF-8

local/lib/perl5/MooseX/Has/Sugar/Saccharin.pm  view on Meta::CPAN

sub ro($) {
  return ( 'is', 'ro', 'isa', shift, );
}













sub rw($) {
  return ( 'is', 'rw', 'isa', shift, );
}

local/lib/perl5/x86_64-linux-thread-multi/AnyEvent/DNS.pm  view on Meta::CPAN

}

sub aaaa($$) {
   my ($domain, $cb) = @_;

   resolver->resolve ($domain => "aaaa", sub {
      $cb->(map $_->[4], @_);
   });
}

sub mx($$) {
   my ($domain, $cb) = @_;

   resolver->resolve ($domain => "mx", sub {
      $cb->(map $_->[5], sort { $a->[4] <=> $b->[4] } @_);
   });
}

sub ns($$) {
   my ($domain, $cb) = @_;

   resolver->resolve ($domain => "ns", sub {
      $cb->(map $_->[4], @_);
   });
}

sub txt($$) {
   my ($domain, $cb) = @_;

local/lib/perl5/x86_64-linux-thread-multi/AnyEvent/Loop.pm  view on Meta::CPAN

      } elsif (!@timer || $timer[0][0] > $MNOW && !$fds) {
         $$$_ && $$$_->() for @idle = grep $$$_, @idle;
      }
   }
}

sub run {
   one_event while 1;
}

sub io($$$) {
   my ($fd, $write, $cb) = @_;

   defined ($fd = fileno $fd)
      or $fd = $_[0];

   my $self = bless [
      $fd,
      $write,
      $cb,
      # q-idx