Gecko [ 196.203.21.74 ]

Name	Size	Permission
Algorithm	[ DIR ]	drwxrwxrwx
Alien	[ DIR ]	drwxrwxrwx
Alt	[ DIR ]	drwxrwxrwx
Apache	[ DIR ]	drwxrwxrwx
App	[ DIR ]	drwxrwxrwx
AppConfig	[ DIR ]	drwxrwxrwx
Archive	[ DIR ]	drwxrwxrwx
Authen	[ DIR ]	drwxrwxrwx
B	[ DIR ]	drwxrwxrwx
BerkeleyDB	[ DIR ]	drwxrwxrwx
Bundle	[ DIR ]	drwxrwxrwx
Bytes	[ DIR ]	drwxrwxrwx
CGI	[ DIR ]	drwxrwxrwx
CPAN	[ DIR ]	drwxrwxrwx
CPANPLUS	[ DIR ]	drwxrwxrwx
Canary	[ DIR ]	drwxrwxrwx
Capture	[ DIR ]	drwxrwxrwx
Carp	[ DIR ]	drwxrwxrwx
Class	[ DIR ]	drwxrwxrwx
Clone	[ DIR ]	drwxrwxrwx
Compress	[ DIR ]	drwxrwxrwx
Config	[ DIR ]	drwxrwxrwx
Context	[ DIR ]	drwxrwxrwx
Convert	[ DIR ]	drwxrwxrwx
Cpanel	[ DIR ]	drwxrwxrwx
Crypt	[ DIR ]	drwxrwxrwx
DBD	[ DIR ]	drwxrwxrwx
DBI	[ DIR ]	drwxrwxrwx
DBIx	[ DIR ]	drwxrwxrwx
DBM	[ DIR ]	drwxrwxrwx
Dancer	[ DIR ]	drwxrwxrwx
Dancer2	[ DIR ]	drwxrwxrwx
Data	[ DIR ]	drwxrwxrwx
Date	[ DIR ]	drwxrwxrwx
DateTime	[ DIR ]	drwxrwxrwx
Devel	[ DIR ]	drwxrwxrwx
Digest	[ DIR ]	drwxrwxrwx
Dist	[ DIR ]	drwxrwxrwx
Email	[ DIR ]	drwxrwxrwx
Encode	[ DIR ]	drwxrwxrwx
Eval	[ DIR ]	drwxrwxrwx
Excel	[ DIR ]	drwxrwxrwx
Exception	[ DIR ]	drwxrwxrwx
Exporter	[ DIR ]	drwxrwxrwx
ExtUtils	[ DIR ]	drwxrwxrwx
FFI	[ DIR ]	drwxrwxrwx
File	[ DIR ]	drwxrwxrwx
GD	[ DIR ]	drwxrwxrwx
Graphics	[ DIR ]	drwxrwxrwx
HTML	[ DIR ]	drwxrwxrwx
HTTP	[ DIR ]	drwxrwxrwx
Hash	[ DIR ]	drwxrwxrwx
Hook	[ DIR ]	drwxrwxrwx
IO	[ DIR ]	drwxrwxrwx
IPC	[ DIR ]	drwxrwxrwx
Imager	[ DIR ]	drwxrwxrwx
JSON	[ DIR ]	drwxrwxrwx
LWP	[ DIR ]	drwxrwxrwx
List	[ DIR ]	drwxrwxrwx
Log	[ DIR ]	drwxrwxrwx
MIME	[ DIR ]	drwxrwxrwx
Mail	[ DIR ]	drwxrwxrwx
Math	[ DIR ]	drwxrwxrwx
Method	[ DIR ]	drwxrwxrwx
Mock	[ DIR ]	drwxrwxrwx
Modern	[ DIR ]	drwxrwxrwx
Module	[ DIR ]	drwxrwxrwx
Mojo	[ DIR ]	drwxrwxrwx
MojoX	[ DIR ]	drwxrwxrwx
Mojolicious	[ DIR ]	drwxrwxrwx
Moo	[ DIR ]	drwxrwxrwx
MooX	[ DIR ]	drwxrwxrwx
Moose	[ DIR ]	drwxrwxrwx
MooseX	[ DIR ]	drwxrwxrwx
Mozilla	[ DIR ]	drwxrwxrwx
Net	[ DIR ]	drwxrwxrwx
Number	[ DIR ]	drwxrwxrwx
OLE	[ DIR ]	drwxrwxrwx
Object	[ DIR ]	drwxrwxrwx
OpenGL	[ DIR ]	drwxrwxrwx
PAR	[ DIR ]	drwxrwxrwx
POD2	[ DIR ]	drwxrwxrwx
PPI	[ DIR ]	drwxrwxrwx
PPM	[ DIR ]	drwxrwxrwx
Package	[ DIR ]	drwxrwxrwx
Params	[ DIR ]	drwxrwxrwx
Parse	[ DIR ]	drwxrwxrwx
Path	[ DIR ]	drwxrwxrwx
Perl	[ DIR ]	drwxrwxrwx
PerlIO	[ DIR ]	drwxrwxrwx
Pod	[ DIR ]	drwxrwxrwx
Portable	[ DIR ]	drwxrwxrwx
Probe	[ DIR ]	drwxrwxrwx
Role	[ DIR ]	drwxrwxrwx
SOAP	[ DIR ]	drwxrwxrwx
SQL	[ DIR ]	drwxrwxrwx
Scope	[ DIR ]	drwxrwxrwx
Sort	[ DIR ]	drwxrwxrwx
Specio	[ DIR ]	drwxrwxrwx
Spiffy	[ DIR ]	drwxrwxrwx
Spreadsheet	[ DIR ]	drwxrwxrwx
StackTrace	[ DIR ]	drwxrwxrwx
String	[ DIR ]	drwxrwxrwx
Sub	[ DIR ]	drwxrwxrwx
Syntax	[ DIR ]	drwxrwxrwx
Sys	[ DIR ]	drwxrwxrwx
TAP	[ DIR ]	drwxrwxrwx
Task	[ DIR ]	drwxrwxrwx
Template	[ DIR ]	drwxrwxrwx
Term	[ DIR ]	drwxrwxrwx
Test	[ DIR ]	drwxrwxrwx
Test2	[ DIR ]	drwxrwxrwx
Text	[ DIR ]	drwxrwxrwx
Throwable	[ DIR ]	drwxrwxrwx
Tie	[ DIR ]	drwxrwxrwx
Time	[ DIR ]	drwxrwxrwx
Tree	[ DIR ]	drwxrwxrwx
Types	[ DIR ]	drwxrwxrwx
Unicode	[ DIR ]	drwxrwxrwx
Variable	[ DIR ]	drwxrwxrwx
WWW	[ DIR ]	drwxrwxrwx
Win32	[ DIR ]	drwxrwxrwx
Win32API	[ DIR ]	drwxrwxrwx
XML	[ DIR ]	drwxrwxrwx
YAML	[ DIR ]	drwxrwxrwx
auto	[ DIR ]	drwxrwxrwx
common	[ DIR ]	drwxrwxrwx
lib	[ DIR ]	drwxrwxrwx
libwww	[ DIR ]	drwxrwxrwx
local	[ DIR ]	drwxrwxrwx
namespace	[ DIR ]	drwxrwxrwx
odern	[ DIR ]	drwxrwxrwx
AppConfig.pm	31.7 KB	-rw-rw-rw-
BerkeleyDB.pm	42.09 KB	-rw-rw-rw-
BerkeleyDB.pod	80.17 KB	-rw-rw-rw-
CGI.pm	122.63 KB	-rw-rw-rw-
CGI.pod	66.13 KB	-rw-rw-rw-
CPANPLUS.pm	7.05 KB	-rw-rw-rw-
Clone.pm	2.29 KB	-rw-rw-rw-
CryptX.pm	4.69 KB	-rw-rw-rw-
DBI.pm	310.74 KB	-rw-rw-rw-
DB_File.pm	67.74 KB	-rw-rw-rw-
DDP.pm	530 B	-rw-rw-rw-
DateTime.pm	132.7 KB	-rw-rw-rw-
FCGI.pm	5.72 KB	-rw-rw-rw-
Fh.pm	166 B	-rw-rw-rw-
GD.pm	67.49 KB	-rw-rw-rw-
Imager.pm	124.3 KB	-rw-rw-rw-
Importer.pm	41.53 KB	-rw-rw-rw-
JSON.pm	61.08 KB	-rw-rw-rw-
LWP.pm	21.17 KB	-rw-rw-rw-
MailTools.pm	458 B	-rw-rw-rw-
MailTools.pod	2.24 KB	-rw-rw-rw-
Mojo.pm	1.61 KB	-rw-rw-rw-
Mojolicious.pm	29.21 KB	-rw-rw-rw-
Moo.pm	33.61 KB	-rw-rw-rw-
Moose.pm	38.63 KB	-rw-rw-rw-
OLE.pm	4.28 KB	-rw-rw-rw-
OpenGL.pm	140.62 KB	-rw-rw-rw-
OpenGL.pod	37.33 KB	-rw-rw-rw-
PAR.pm	40.34 KB	-rw-rw-rw-
PPI.pm	29.52 KB	-rw-rw-rw-
PPM.pm	75.77 KB	-rw-rw-rw-
PadWalker.pm	4.1 KB	-rw-rw-rw-
PkgConfig.pm	46.95 KB	-rw-rw-rw-
Portable.pm	6.49 KB	-rw-rw-rw-
Socket6.pm	9.55 KB	-rw-rw-rw-
Specio.pm	14.83 KB	-rw-rw-rw-
Spiffy.pm	15.12 KB	-rw-rw-rw-
Spiffy.pod	17.75 KB	-rw-rw-rw-
Template.pm	24.46 KB	-rw-rw-rw-
Throwable.pm	4.4 KB	-rw-rw-rw-
TimeDate.pm	267 B	-rw-rw-rw-
V.pm	4.18 KB	-rw-rw-rw-
XString.pm	1.76 KB	-rw-rw-rw-
YAML.pm	3.12 KB	-rw-rw-rw-
YAML.pod	22.62 KB	-rw-rw-rw-
aliased.pm	9.98 KB	-rw-rw-rw-
alienfile.pm	15.78 KB	-rw-rw-rw-
dbixs_rev.pl	1.5 KB	-rw-rw-rw-
enum.pm	10.63 KB	-rw-rw-rw-
metaclass.pm	3.23 KB	-rw-rw-rw-
mkconsts.pl	38.4 KB	-rw-rw-rw-
ntheory.pm	14.33 KB	-rw-rw-rw-
ojo.pm	7.04 KB	-rw-rw-rw-
oo.pm	1.19 KB	-rw-rw-rw-
oose.pm	2.62 KB	-rw-rw-rw-
pler.pm	9.76 KB	-rw-rw-rw-
ppm.xml	600 B	-rw-rw-rw-
scan.pl	5.68 KB	-rw-rw-rw-
superclass.pm	3.71 KB	-rw-rw-rw-
syntax.pm	4.24 KB	-rw-rw-rw-

Name

Size

Permission

Action

Algorithm

[ DIR ]

drwxrwxrwx

Alien

[ DIR ]

drwxrwxrwx

Alt

[ DIR ]

drwxrwxrwx

Apache

[ DIR ]

drwxrwxrwx

App

[ DIR ]

drwxrwxrwx

AppConfig

[ DIR ]

drwxrwxrwx

Code Editor : OLE.pm

# Compatibility layer for applications using the old toplevel OLE.pm.
# New code should use Win32::OLE

# This file is based on ../lib/OLE.pm from ActiveState build 315.

# Compatibility notes:
# - "GetObject" -> "GetActiveObject"
# - "keys %$collection" -> "Win32::OLE::Enum->All($collection)"
#                       or "in $Collection"
# - "unnamed" default method retries

########################################################################
# package Win32;
########################################################################

*Win32::OLELastError = sub { return OLE->LastError() };

########################################################################
package OLE::Variant;
########################################################################

use Win32::OLE qw(CP_ACP);
use Win32::OLE::Variant;

use strict;
use vars qw($AUTOLOAD @ISA $LCID $CP $Warn $LastError $_NewEnum $_Unique);
@ISA = qw(Win32::OLE::Variant);

$Warn = 0;
$LCID = 2 << 10; # LOCALE_SYSTEM_DEFAULT
$CP = CP_ACP;
$_NewEnum = 0;
$_Unique = 0;

sub new {
    my $self = shift;
    my $variant = $self->SUPER::new(@_);
    $OLE::LastError = $Win32::OLE->LastError unless defined $variant;
    return $variant;
}

########################################################################
package OLE::Tie;
########################################################################
use strict;
use vars qw(@ISA);
@ISA = qw(Win32::OLE::Tie);

# !!! It is VERY important that Win32::OLE::Tie::DESTROY gets called. !!!
# If you subclass DESTROY, don't forget to call $self->SUPER::DESTROY.
# Otherwise the OLE interfaces will not be released until process termination!

# Retry default method if property doesn't exist
sub FETCH {
    my ($self,$key) = @_;
    return $self->SUPER::Fetch($key, 1);
}

sub STORE {
    my ($self,$key,$value) = @_;
    $self->SUPER::Store($key, $value, 1);
}

# Enumerate collection members, not object properties
*FIRSTKEY = *Win32::OLE::Tie::FIRSTENUM;
*NEXTKEY = *Win32::OLE::Tie::NEXTENUM;

########################################################################
package OLE;
########################################################################
use Win32::OLE qw(CP_ACP);

# Use OleInitialize() instead of CoInitializeEx:
Win32::OLE->Initialize(Win32::OLE::COINIT_OLEINITIALIZE);

use strict;

# Disable overload; unfortunately "no overload" doesn't do it :-(
# Overloading is no longer enabled by default in Win32::OLE
#use overload '""'     => sub {overload::StrVal($_[0])},
#             '0+'     => sub {overload::StrVal($_[0])};

use vars qw($AUTOLOAD @ISA $LCID $CP $Warn $LastError $Tie);
@ISA = qw(Win32::OLE);

$Warn = 0;
$LCID = 2 << 10; # LOCALE_SYSTEM_DEFAULT
$CP = CP_ACP;
$Tie = 'OLE::Tie';

sub new {
    my $class = shift;
    $class = shift if $class eq 'OLE';
    return OLE->SUPER::new($class);
}

sub copy {
    my $class = shift;
    $class = shift if $class eq 'OLE';
    return OLE->SUPER::GetActiveObject($class);
}

sub AUTOLOAD {
    my $self = shift;
    my $retval;
    $AUTOLOAD =~ s/.*:://o;

Carp::croak("Cannot autoload class method \"$AUTOLOAD\"") 
      unless ref($self) && UNIVERSAL::isa($self,'OLE');

local $^H = 0; # !hack alert!
    unless (defined $self->Dispatch($AUTOLOAD, $retval, @_)) {
	# Retry default method
	$self->Dispatch(undef, $retval, $AUTOLOAD, @_);
    }
    return $retval;
}

# Automation data types.

sub VT_EMPTY {0;}
sub VT_NULL {1;}
sub VT_I2 {2;}
sub VT_I4 {3;}
sub VT_R4 {4;}
sub VT_R8 {5;}
sub VT_CY {6;}
sub VT_DATE {7;}
sub VT_BSTR {8;}
sub VT_DISPATCH {9;}
sub VT_ERROR {10;}
sub VT_BOOL {11;}
sub VT_VARIANT {12;}
sub VT_UNKNOWN {13;}
sub VT_I1 {16;}
sub VT_UI1 {17;}
sub VT_UI2 {18;}
sub VT_UI4 {19;}
sub VT_I8 {20;}
sub VT_UI8 {21;}
sub VT_INT {22;}
sub VT_UINT {23;}
sub VT_VOID {24;}
sub VT_HRESULT {25;}
sub VT_PTR {26;}
sub VT_SAFEARRAY {27;}
sub VT_CARRAY {28;}
sub VT_USERDEFINED {29;}
sub VT_LPSTR {30;}
sub VT_LPWSTR {31;}
sub VT_FILETIME {64;}
sub VT_BLOB {65;}
sub VT_STREAM {66;}
sub VT_STORAGE {67;}
sub VT_STREAMED_OBJECT {68;}
sub VT_STORED_OBJECT {69;}
sub VT_BLOB_OBJECT {70;}
sub VT_CF {71;}
sub VT_CLSID {72;}

sub TKIND_ENUM {0;}
sub TKIND_RECORD {1;}
sub TKIND_MODULE {2;}
sub TKIND_INTERFACE {3;}
sub TKIND_DISPATCH {4;}
sub TKIND_COCLASS {5;}
sub TKIND_ALIAS {6;}
sub TKIND_UNION {7;}
sub TKIND_MAX {8;}

${this.title}

Code Editor : OLE.pm