![[logo]](camel_head.png)
Writing classes in Perl can be kind of tedious.
Consider the following class:
package Car;
use strict;
use warnings;
sub new {
my ($class, $parameters) = @_;
bless $parameters, $class;
return $parameters;
}
use Car;
my $car = Car->new({ make => 'Toyota', model => 'Supra' });
Seems pretty simple, but...