#!/usr/bin/perl -w
use strict;
use attributes;

sub FETCH_CODE_ATTRIBUTES {
    return qw(Big Damn Test);
}

sub MODIFY_CODE_ATTRIBUTES {
    my ( $class, $code, @attrs ) = @_;

    if ( $class ne 'main' ) {
        if (my $code = $class->SUPER::can('MODIFY_CODE_ATTRIBUTES')) {
            @attrs = $code->( $class, $code, @attrs );
        }
    }

    my @unknown;
    foreach my $attr (@attrs) {
        if ( 1 ) { # yeah, I'm supposed to handle this attribute
            # "There is no spoon."
            # Magic Happens Here .. ???
        }
        else {
            push @unknown, $attr;
        }
    }
    return @unknown;
}

sub foo : Big Damn Test {
    warn "SPOOON!";
}

foo();