Newly i use it in combination with Data::Type:

class 'Idiot',
{
  public =>
  {
      string => [ qw( name title ) ],
       
      int => [ qw( score ) ],
  },

  types =>
  {
      string => STD::VARCHAR(80),

      int => STD::INTEGER,
  }
};


 my $murat = new Idiot name => 'murat', title => 'Mr.', score => 10; #
+ out of 10
[download]

Murat

Edit by tye, preserve formatting