MacoTasu

package Result::User {
    use strict;
    use warnings;
    use utf8;

    sub new { bless {}, shift }

    sub to_model {
        my $self = shift;
        Model::User->new(user => $self);