# This is file Co.pm package Co; use strict; use warnings; use base qw(Exporter Attribute::Default); our @EXPORT_OK=qw(f); sub f : Default(undef,"xyz") { print("@_\nEND\n"); } 1;