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