Yo quiero hacer algo similar:
Using perl Syntax Highlighting
package MyModulo;
use strict;
sub funcion {
my ( $a, $b ) = @_;
if ( $a ne "algo" ) {
return ERROR ? #no se que poner aquí
}
else { ... }
}
1;
use strict;
sub funcion {
my ( $a, $b ) = @_;
if ( $a ne "algo" ) {
return ERROR ? #no se que poner aquí
}
else { ... }
}
1;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
y el cliente:
Using perl Syntax Highlighting
use MyModulo;
my $algo = MyModulo->funcion(1, "a") or die "$!\n";
my $algo = MyModulo->funcion(1, "a") or die "$!\n";
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
perlvar no me ha dicho mucho... al parecer $! y $^E sólo lo usa el interprete (Carp usa warn o die ).
Cualquier respuesta es útil.
¡Gracias!
