packageJoy;useMoose;useautodie;# no autodie qw(chown);usesubsqw(chown);useexperimentalqw(signatures);has'path'=>(is=>'ro',isa=>'Str');subchown($this, $user = "bpm", $group = "admin") {my$uid=getpwnam($user);my$gid=getgrnam($group);CORE::chown($uid,$gid,$this->path);return$this;}packagemain;Joy->new(path=>"/opt/joy")->chown("bpm","admin");CORE::say("no joy");__END__Prototype mismatch: sub Joy::chown (@) vs none at joy-comments.pl line 20.Subroutine chown redefined at joy-comments.pl line 13.Can't locate object method "chown" via package "Joy" at joy-comments.pl line 24.