Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Array	[ DIR ]	drwxr-xr-x
B	[ DIR ]	drwxr-xr-x
Bit	[ DIR ]	drwxr-xr-x
Bundle	[ DIR ]	drwxr-xr-x
Class	[ DIR ]	drwxr-xr-x
Cpanel	[ DIR ]	drwxr-xr-x
Crypt	[ DIR ]	drwxr-xr-x
DBD	[ DIR ]	drwxr-xr-x
DBI	[ DIR ]	drwxr-xr-x
Data	[ DIR ]	drwxr-xr-x
Date	[ DIR ]	drwxr-xr-x
DateTime	[ DIR ]	drwxr-xr-x
Devel	[ DIR ]	drwxr-xr-x
Digest	[ DIR ]	drwxr-xr-x
Email	[ DIR ]	drwxr-xr-x
Encode	[ DIR ]	drwxr-xr-x
Event	[ DIR ]	drwxr-xr-x
File	[ DIR ]	drwxr-xr-x
Filter	[ DIR ]	drwxr-xr-x
GD	[ DIR ]	drwxr-xr-x
HTML	[ DIR ]	drwxr-xr-x
IO	[ DIR ]	drwxr-xr-x
IPC	[ DIR ]	drwxr-xr-x
Image	[ DIR ]	drwxr-xr-x
Irssi	[ DIR ]	drwxr-xr-x
JSON	[ DIR ]	drwxr-xr-x
Linux	[ DIR ]	drwxr-xr-x
List	[ DIR ]	drwxr-xr-x
Locale	[ DIR ]	drwxr-xr-x
MIME	[ DIR ]	drwxr-xr-x
Math	[ DIR ]	drwxr-xr-x
Moose	[ DIR ]	drwxr-xr-x
Net	[ DIR ]	drwxr-xr-x
NetAddr	[ DIR ]	drwxr-xr-x
OSSP	[ DIR ]	drwxr-xr-x
Package	[ DIR ]	drwxr-xr-x
Params	[ DIR ]	drwxr-xr-x
Proc	[ DIR ]	drwxr-xr-x
SVN	[ DIR ]	drwxr-xr-x
Scalar	[ DIR ]	drwxr-xr-x
String	[ DIR ]	drwxr-xr-x
Sub	[ DIR ]	drwxr-xr-x
Sys	[ DIR ]	drwxr-xr-x
Template	[ DIR ]	drwxr-xr-x
Term	[ DIR ]	drwxr-xr-x
Test	[ DIR ]	drwxr-xr-x
Text	[ DIR ]	drwxr-xr-x
Type	[ DIR ]	drwxr-xr-x
Unicode	[ DIR ]	drwxr-xr-x
Variable	[ DIR ]	drwxr-xr-x
WWW	[ DIR ]	drwxr-xr-x
Win32	[ DIR ]	drwxr-xr-x
XML	[ DIR ]	drwxr-xr-x
YAML	[ DIR ]	drwxr-xr-x
auto	[ DIR ]	drwxr-xr-x
common	[ DIR ]	drwxr-xr-x
Clone.pm	2.29 KB	-rw-r--r--
CryptX.pm	4.01 KB	-rw-r--r--
Curses.pm	40.9 KB	-rw-r--r--
DBI.pm	310.74 KB	-rw-r--r--
DateTime.pm	133.5 KB	-rw-r--r--
Encode.pm	31.45 KB	-rw-r--r--
Event.pm	4.79 KB	-rw-r--r--
Event.pod	29.6 KB	-rw-r--r--
FCGI.pm	5.72 KB	-rw-r--r--
GD.pm	69.27 KB	-rw-r--r--
Irssi.pm	3.93 KB	-rw-r--r--
Moose.pm	38.63 KB	-rw-r--r--
NKF.pm	9.34 KB	-rw-r--r--
Prelude.pm	22.34 KB	-rw-r--r--
RRDs.pm	5.88 KB	-rw-r--r--
Socket6.pm	9.86 KB	-rw-r--r--
Template.pm	24.45 KB	-rw-r--r--
Want.pm	17.91 KB	-rw-r--r--
XString.pm	1.76 KB	-rw-r--r--
dbixs_rev.pl	1.5 KB	-rw-r--r--
encoding.pm	22.41 KB	-rw-r--r--
metaclass.pm	3.23 KB	-rw-r--r--
oose.pm	2.62 KB	-rw-r--r--

Code Editor : Event.pm

use strict;

BEGIN {  # do the right thing for threads?
    eval { require attrs; } or do {
	$INC{'attrs.pm'} = "";
	*attrs::import = sub {};
    }
}

package Event;
require 5.008;
use base 'Exporter';
use Carp;
eval { require Carp::Heavy; };  # work around perl_call_pv bug XXX
our $API;
our $VERSION = '1.28';

# If we inherit DynaLoader then we inherit AutoLoader; Bletch!
require DynaLoader;

# DynaLoader calls dl_load_flags as a static method.
*dl_load_flags = DynaLoader->can('dl_load_flags');
(defined(&bootstrap)? \&bootstrap : \&DynaLoader::bootstrap)->
    (__PACKAGE__, $VERSION);

our $DebugLevel = 0;
our $Eval = 0;		# avoid because c_callback is exempt
our $DIED = \&default_exception_handler;

our @EXPORT_OK = qw(time all_events all_watchers all_running all_queued all_idle
		one_event sweep loop unloop unloop_all sleep queue
		queue_pending
		QUEUES PRIO_NORMAL PRIO_HIGH NO_TIME_HIRES);

sub import {
  my $pkg = shift;
  our $NO_TIME_HIRES;
  my @sym;
  for my $sym (@_) {
    if ($sym eq 'NO_TIME_HIRES') {
      $NO_TIME_HIRES = 1;
    } else {
      push @sym, $sym;
    }
  }

if (!$NO_TIME_HIRES) {
    eval { require Time::HiRes; };
    if ($@ =~ /^Can\'t locate Time/) {
      # OK, just continue
    } elsif ($@) {
      die if $@;
    } else {
      cache_time_api();  # hook in high precision time
    }
  }

$pkg->export_to_level(1, undef, @sym);
}

# broadcast_adjust for Time::Warp? XXX

sub _load_watcher {
    my $sub = shift;
    eval { require "Event/$sub.pm" };
    die if $@;
    croak "Event/$sub.pm did not define Event::$sub\::new"
	unless defined &$sub;
    1;
}

sub AUTOLOAD {
    my $sub = ($Event::AUTOLOAD =~ /(\w+)$/)[0];
    _load_watcher($sub) or croak $@ . ', Undefined subroutine &' . $sub;
    carp "Autoloading with Event->$sub(...) is deprecated;
\tplease 'use Event::type qw($sub);' explicitly";
    goto &$sub;
}

sub default_exception_handler {
    my ($run,$err) = @_;
    my $desc = '?';
    my $w;
    if ($run and ($w = $run->w)) {
	$desc = "`".$w->desc."'";
    }
    my $m = "Event: trapped error in $desc: $err";
    $m .= "\n" if $m !~ m/\n$/;
    warn $m;
    #Carp::cluck "Event: fatal error trapped in '$desc'";
}

sub verbose_exception_handler { #AUTOLOAD XXX
    my ($e,$err) = @_;

my $m = "Event: trapped error: $err";
    $m .= "\n" if $m !~ m/\n$/;
    return warn $m if !$e;

my $w = $e->w;
    $m .= "  in $w --\n";

for my $k ($w->attributes) {
	$m .= sprintf "%18s: ", $k;
	eval {
	    my $v = $w->$k();
	    if (!defined $v) {
		$m .= '<undef>';
	    } elsif ($v =~ /^-?\d+(\.\d+)?$/) {
		$m .= $v;
	    } else {
		$m .= "'$v'";
	    }
	};
	if ($@) { $m .= "[$@]"; $@=''; }
	$m .= "\n";
    }
    warn $m;
}

sub sweep {
    my $prio = @_ ? shift : QUEUES();
    queue_pending();
    my $errsv = '';
    while (1) {
	eval { $@ = $errsv; _empty_queue($prio) };
	$errsv = $@;
	if ($@) {
#	    if ($Event::DebugLevel >= 2) {
#		my $e = all_running();
#		warn "Event: '$e->{desc}' died with: $@";
#	    }
	    next
	}
	last;
    }
}

use vars qw($Result $TopResult);

my $loop_timer;
sub loop {
    use integer;
    if (@_) {
	my $how_long = shift;
	if (!$loop_timer) {
	    $loop_timer = Event->timer(desc => "Event::loop timeout",
				       after => $how_long,
				       cb => sub { unloop($how_long) },
				       parked=>1);
	    $loop_timer->prio(PRIO_HIGH());
	} else {
	    $loop_timer->at(Event::time() + $how_long),
	}
	$loop_timer->start;
    }
    $TopResult = undef;    # allow re-entry of loop after unloop_all
    local $Result = undef;
    _incr_looplevel();
    my $errsv = '';
    while (1) {
	# like G_EVAL | G_KEEPERR
	eval { $@ = $errsv; _loop() };
	$errsv = $@;
	if ($@) {
	    warn "Event::loop caught: $@"
		if $Event::DebugLevel >= 4;
	    next
	}
	last;
    }
    _decr_looplevel();
    $loop_timer->stop if $loop_timer;
    my $r = $Result;
    $r = $TopResult if !defined $r;
    warn "Event: unloop(".(defined $r?$r:'<undef>').")\n"
	if $Event::DebugLevel >= 3;
    $r
}

sub add_hooks {
    shift if @_ & 1; #?
    while (@_) {
	my $k = shift;
	my $v = shift;
	croak "$v must be CODE" if ref $v ne 'CODE';
	_add_hook($k, $v);
    }
}

END { $_->cancel for all_watchers() } # buggy? XXX

package Event::Event::Io;
use vars qw(@ISA);
@ISA = 'Event::Event';

package Event::Event::Dataful;
use vars qw(@ISA);
@ISA = 'Event::Event';

package Event;
require Event::Watcher;
_load_watcher($_) for qw(idle io signal timer var);

# Provide hints to Inline.pm for usage:
# use Inline with => 'Event';
sub Inline {
    my ($class, $language) = @_;
    require Event::MakeMaker;
    my $path = $Event::MakeMaker::installsitearch;
    require Config;
    my $so = $Config::Config{so};
    return {
	INC => "-I $path/Event",
	TYPEMAPS => "$path/Event/typemap",
	MYEXTLIB => "$path/auto/Event/Event.$so",
	AUTO_INCLUDE => '#include "EventAPI.h"',
	BOOT => 'I_EVENT_API("Inline");',
    };
}

${this.title}

Code Editor : Event.pm