Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
De-tab and get indenting right
  • Loading branch information
@lizmat
lizmat committed Jul 9, 2014
1 parent 62446ba commit 6429cf8
Showing 1 changed file with 61 additions and 69 deletions.
130 changes: 61 additions & 69 deletions S06-advanced/wrap.t
View file
Expand Up @@ -89,10 +89,6 @@ is(@log[1], "foo", "got execpted value from original sub");

dies_ok { &foo.unwrap($wrapped) }, "can't re-unwrap an already unwrapped sub";



# from wrapping.t

#First level wrapping
sub hi { "Hi" };
is( hi, "Hi", "Basic sub." );
Expand Down Expand Up @@ -126,10 +122,10 @@ lives_ok { &levelwrap.callwith( 1 )},
{
for (1..10) -> $num {
lives_ok {
&levelwrap.wrap({
callwith( $^t + 1 );
}),
" Wrapping #$num"
&levelwrap.wrap({
callwith( $^t + 1 );
}),
" Wrapping #$num"
}, "wrapping $num";
is( levelwrap( 1 ), 1 + $num, "Checking $num level wrapping" );
}
Expand Down Expand Up @@ -236,28 +232,27 @@ dies_ok { {nextsame}() }, '{nextsame}() dies properly';
my $didfoo;

my role SomeTrait {
method apply_handles($attr: Mu $pkg) {
my $name = $attr.name;
my $accessor = $name.subst(/^../, '');
my $r = sub ($obj, |args) is rw {
my (|c) ::= callsame;
c;
}
$pkg.^find_method($accessor).wrap($r);
}

method foo { $didfoo++ }
method apply_handles($attr: Mu $pkg) {
my $name = $attr.name;
my $accessor = $name.subst(/^../, '');
my $r = sub ($obj, |args) is rw {
my (|c) ::= callsame;
c;
}
$pkg.^find_method($accessor).wrap($r);
}
method foo { $didfoo++ }
}

multi trait_mod:<is>(Attribute $var, :$wtf!) {
die "Must have accessor" unless $var.has-accessor;
$var.set_rw;
$var does SomeTrait;
$var.foo;
die "Must have accessor" unless $var.has-accessor;
$var.set_rw;
$var does SomeTrait;
$var.foo;
}

my class foo {
has $.x is rw is wtf = 16;
has $.x is rw is wtf = 16;
}

ok $didfoo, "Did foo, capture return";
Expand All @@ -273,27 +268,26 @@ dies_ok { {nextsame}() }, '{nextsame}() dies properly';
my $didfoo;

my role SomeTrait {
method apply_handles($attr: Mu $pkg) {
my $name = $attr.name;
my $accessor = $name.subst(/^../, '');
my $r = sub ($obj, |args) is rw {
return callsame;
}
$pkg.^find_method($accessor).wrap($r);
}

method foo { $didfoo++ }
method apply_handles($attr: Mu $pkg) {
my $name = $attr.name;
my $accessor = $name.subst(/^../, '');
my $r = sub ($obj, |args) is rw {
return callsame;
}
$pkg.^find_method($accessor).wrap($r);
}
method foo { $didfoo++ }
}

multi trait_mod:<is>(Attribute $var, :$wtf!) {
die "Must have accessor" unless $var.has-accessor;
$var.set_rw;
$var does SomeTrait;
$var.foo;
die "Must have accessor" unless $var.has-accessor;
$var.set_rw;
$var does SomeTrait;
$var.foo;
}

my class foo {
has $.x is rw is wtf = 16;
has $.x is rw is wtf = 16;
}

ok $didfoo, "Did foo, return callsame";
Expand All @@ -309,27 +303,26 @@ dies_ok { {nextsame}() }, '{nextsame}() dies properly';
my $didfoo;

my role SomeTrait {
method apply_handles($attr: Mu $pkg) {
my $name = $attr.name;
my $accessor = $name.subst(/^../, '');
my $r = sub ($obj, |args) is rw {
callsame;
}
$pkg.^find_method($accessor).wrap($r);
}

method foo { $didfoo++ }
method apply_handles($attr: Mu $pkg) {
my $name = $attr.name;
my $accessor = $name.subst(/^../, '');
my $r = sub ($obj, |args) is rw {
callsame;
}
$pkg.^find_method($accessor).wrap($r);
}
method foo { $didfoo++ }
}

multi trait_mod:<is>(Attribute $var, :$wtf!) {
die "Must have accessor" unless $var.has-accessor;
$var.set_rw;
$var does SomeTrait;
$var.foo;
die "Must have accessor" unless $var.has-accessor;
$var.set_rw;
$var does SomeTrait;
$var.foo;
}

my class foo {
has $.x is rw is wtf = 16;
has $.x is rw is wtf = 16;
}

ok $didfoo, "Did foo, callsame";
Expand All @@ -345,27 +338,26 @@ dies_ok { {nextsame}() }, '{nextsame}() dies properly';
my $didfoo;

my role SomeTrait {
method apply_handles($attr: Mu $pkg) {
my $name = $attr.name;
my $accessor = $name.subst(/^../, '');
my $r = sub ($obj, |args) is rw {
nextsame;
}
$pkg.^find_method($accessor).wrap($r);
}

method foo { $didfoo++ }
method apply_handles($attr: Mu $pkg) {
my $name = $attr.name;
my $accessor = $name.subst(/^../, '');
my $r = sub ($obj, |args) is rw {
nextsame;
}
$pkg.^find_method($accessor).wrap($r);
}
method foo { $didfoo++ }
}

multi trait_mod:<is>(Attribute $var, :$wtf!) {
die "Must have accessor" unless $var.has-accessor;
$var.set_rw;
$var does SomeTrait;
$var.foo;
die "Must have accessor" unless $var.has-accessor;
$var.set_rw;
$var does SomeTrait;
$var.foo;
}

my class foo {
has $.x is rw is wtf = 16;
has $.x is rw is wtf = 16;
}

ok $didfoo, "Did foo, nextsame";
Expand Down

0 comments on commit 6429cf8

Please sign in to comment.