3.

    Code:

            package X;
            sub foo : lvalue ;

    Effect:

            use attributes X => \&foo, "lvalue";

##</code><code>##

2.

    Code:

            package Felis;
            my $cat : Nervous;

    Effect:

            use attributes ();
            attributes::->import(Felis => \$cat, "Nervous");