Select Code to Download

$s=sub{
    my $name=(caller(0))[3];
...
output:
name:main::__ANON__,parent:
name:main::__ANON__,parent:

my $n=new->new();
$n->get_from_bbc(#some param#)
$n->get_from_voanews(#some param#)

package news;

...


}

package news;

...
                 return res;
                 };
}

$n->get_from_bbc(#some param#)

$n->get_from_voanews(#some param#)