Example from the Zydeco pod

example-zydeco.pl

use v5.14;
use strict;
use warnings;
 
package MyApp {
  use Zydeco;
  
  class Person {
    has name   ( type => Str, required => true );
    has gender ( type => Str );
    
    factory new_man ( Str $name ) {
      return $class->new( name => $name, gender => 'male' );
    }
    
    factory new_woman ( Str $name ) {
      return $class->new( name => $name, gender => 'female' );
    }
    
    method greet ( Person *friend, Str *greeting = "Hello" ) {
      printf( "%s, %s!\n", $arg->greeting, $arg->friend->name );
    }
    
    coerce from Str via from_string {
      return $class->new( name => $_ );
    }
  }
}

'MyApp'->new_woman( 'Alice' )->greet( friend => 'Bob' );