Foro - Perl en Español

Una pregunta básica de la cual no tengo idea de cómo hacer. Tengo el siguiente código:


¿Alguien me podría indicar cómo hacer todo este código en una línea?

P.d.: intenté con Text::Banner->set("hola")->fill("#")->get;, pero nada.

Si el manual no lo indica, entonces no se puede.

En algunos módulos sí que se puede hacer, porque los métodos devuelven el objeto de la llamada, por lo que los métodos se pueden encadenar en cascada.

La única posibilidad:

my $a = Text::Banner->new; $a->set('test'); $a->fill("#"); print $a->get;

ok.