#!/usr/bin/env perl

use 5.010;

package Father;
use Moose;
sub char { lc ref shift }


package Son;
use Moose;
extends 'Father';


package main;
say ref($_) . '->char() = ' . $_->char for new Father, new Son;