perl | función prototipo()

La función prototipo() en Perl devuelve una string que contiene el prototipo de la función o la referencia que se le pasó como argumento, o undef si la función no tiene prototipo.

Sintaxis: prototipo (nombre_función)

Parámetro:
function_name: Función cuyo prototipo se quiere determinar

Devuelve:
prototipo de la función pasada o undef si no existe ningún prototipo

Ejemplo 1:

#!/usr/bin/perl -w
  
$prototype_func = prototype ( "GFG" );
print "Prototype of GFG function ", 
            "is $prototype_func\n";
  
sub GFG(**) 
{
    print "Just a statement\n";
}

Prototype of GFG function is **

Ejemplo 2:

#!/usr/bin/perl -w
  
$prototype_func = prototype ( "GFG" );
print "Prototype of GFG function ", 
            "is $prototype_func\n";
  
sub GFG($$) 
{
    print "Just a statement\n";
}

Prototype of GFG function is $$