[gitmo/Moose.git] / xt / author / debugger-duck_type.t

#!/usr/bin/perl

use FindBin qw/ $Bin /;

BEGIN {
#line 1
#!/usr/bin/perl -d

    push @DB::typeahead, "c", "q";

    # try to shut it up at least a little bit
    open my $out, ">", \my $out_buf;
    $DB::OUT = $out;
    open my $in, "<", \my $in_buf;
    $DB::IN = $in;
}

require "$Bin/type_constraints/duck_types.t";
Commit	Line	Data
eb2c02c4	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";