The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
class teste()

method teste test(){
    echo "olaaaaaa"
}

class Triangulo teste(
    _altura
    _base
)

method Triangulo getArea (  ) {
    / [* $_altura $_base] 2
}

method Triangulo constructor ( a b ) {
    set! _altura $a
    set! _base $b
}

method Triangulo setDimensoes ( a b ) {
    set! _altura $a
    set! _base $b
}


echo [class-is-a Triangulo teste]