use attributes (); my ($x,$y); attributes->import(, __PACKAGE__, \$x, "foo(foo_arg)", "bar(bar_arg)"); attributes->import(, __PACKAGE__, \$y, "foo(foo_arg)", "bar(bar_arg)");