projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
start sketching out an overload api for the mop
[gitmo/Moose.git]
/
xt
/
author
/
debugger-duck_type.t
1
#!/usr/bin/perl
2
3
use FindBin qw/ $Bin /;
4
5
BEGIN {
6
#line 1
7
#!/usr/bin/perl -d
8
9
push @DB::typeahead, "c", "q";
10
11
# try to shut it up at least a little bit
12
open my $out, ">", \my $out_buf;
13
$DB::OUT = $out;
14
open my $in, "<", \my $in_buf;
15
$DB::IN = $in;
16
}
17
18
require "$Bin/type_constraints/duck_types.t";