#!perl -w
use strict;
use Test::More tests => 2;
BEGIN{
package X;
use Sub::Attribute;
sub C :ATTR_SUB{
}
$INC{'X.pm'}++;
}
use parent -norequire => qw(X);
my $x;
sub foo :C :lvalue { $x }
sub bar :lvalue :C { $x }
foo() = 42;
is $x, 42, 'with built-in attributes';
bar() = 99;
is $x, 99, 'with built-in attributes';