http://www.perlmonks.org?node_id=1067553


in reply to Re^6: Smartmatch alternatives
in thread Smartmatch alternatives

These look fine to me. IIRC, older versions of List::Util included a non-XS implementation of first; current versions of List::MoreUtils include a non-XS version of any. So pure Perl versions can probably be pilfered from them too.

use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name