ycamel

Yes, Python is more unreadable than Perl to me. :)

Read https://coosoft.wordpress.com/2013/02/24/the-perl-vs-python-...

What a absurd python propaganda it is.

Read http://www.wikivs.com/wiki/Perl_vs_Python

HAHA Python is fucking readable. https://github.com/hiddenillusion/AnalyzePE/blob/master/Adob... http://blog.delroth.net/2013/03/escaping-a-python-sandbox-nd...

Why not support floating point number type?

Shape is a retangle. Shape::Circle inherits from the Shape. Is it reasonable?

Shape class must have color attibute only. Shape::Retangle and Shape::Circle should inherit from the Shape.

And

...

package Shape::Retangle;

use parent 'Shape';

sub new {

    my ($class, $args) = @_; 

    my $self = $class->SUPER::new( { color => $args->{color} || 'black' } );

    $self->{length} = $args->{length} || 1;

    $self->{width}  = $args->{width} || 1;

    return bless $self, $class; 

}

...

package Shape::Circle;

use parent 'Shape';

sub new {

    my ($class, $args) = @_; 

    my $self = $class->SUPER::new( {color => $args->{color} || 'black' } );

    $self->{diameter} = $args->{diameter} || 1;

    return bless $self, $class; 

}

...