Skip to content

Instantly share code, notes, and snippets.

View wchristian's full-sized avatar

Christian Walde (Mithaldu) wchristian

View GitHub Profile
109 trim
075 main
050 dbOpen
050 dbQuery
050 dbSelect
050 dbClose
050 dbSelectOne
048 getConfig
046 getConfigElement
044 end
Running install for module 'Devel::CheckLib'
Running make for M/MA/MATTN/Devel-CheckLib-0.9.tar.gz
Checksum for C:\Perl\cpan\sources\authors\id\M\MA\MATTN\Devel-CheckLib-0.9.tar.gz ok
Devel-CheckLib-0.9/
Devel-CheckLib-0.9/t/
Devel-CheckLib-0.9/t/found.t
Devel-CheckLib-0.9/t/bad-single-word-compiler.t
Devel-CheckLib-0.9/t/exit_with_message.t
Devel-CheckLib-0.9/t/inc/
Devel-CheckLib-0.9/t/inc/headerfile.h
D:\traffics\Devel-CheckLib-0.91\Devel-CheckLib-0.91>dmake test
C:\Perl\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib\lib', 'blib\arch')" t/*.t
t/00-load.t ...................
# Failed test 'Can load module'
t/00-load.t ................... 1/1 # at t/00-load.t line 10.
# %Config::Config is read-only
# BEGIN failed--compilation aborted at C:/Perl/lib/ActiveState/Path.pm line 12.
# Compilation failed in require at C:/Perl/lib/ActivePerl/Config.pm line 46.
# Compilation failed in require at (eval 4) line 2.
# BEGIN failed--compilation aborted at (eval 4) line 2.
use strict;
use warnings;
package TFX::Flight;
use Moose;
use MooseX::HasDefaults::RO;
use Class::Load 'load_class';
Atlus Monster Kingdom: Jewel Summoner
Atlus Riviera: The Promised Land
Atlus R-Type Command
Atlus Yggdra Union
Atlus Class of Heroes
Atlus Crimson Gem Saga
Atlus Hammerin' Hero
Atlus Kenka Bancho: Badass Rumble
Atlus Shin Megami Tensei: Persona
Atlus Steambot Chronicles: Battle Tournament
use strict;
use warnings;
package TFX::Flight::Conex;
use Moose;
use MooseX::HasDefaults::RO;
use List::Util qw( min reduce );
use strict;
use warnings;
package TFX::Flight::Conex;
use Moose;
use MooseX::HasDefaults::RO;
use List::Util qw( min reduce );
C:\Windows\System32>tracert prostopleer.com
Routenverfolgung zu prostopleer.com [188.72.233.187] über maximal 30 Abschnitte:
1 <1 ms <1 ms <1 ms gw3.guest.traffics.de [192.168.10.1]
2 <1 ms <1 ms <1 ms 80.81.255.102
3 1 ms <1 ms <1 ms 80.81.246.54
4 77 ms 84 ms 36 ms 80.81.246.101
5 16 ms 15 ms 15 ms ge-3-0.3001.core2.ber1.de.inetbone.net [213.203.213.75]
6 22 ms 24 ms 24 ms tge-4-2.bbr1.dus1.de.inetbone.net [213.203.213.70]
sub setAttributeHash {
my $obj=shift;
my $count=shift;
if ($count==1) {
my $key1=shift;
$obj->{$key1}={@_};
}
elsif ($count==2) {
use strict;
use warnings;
package Date::Calc::Cached;
our ( @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, %old );
use base 'Exporter';
use Date::Calc ();