Note that the first instance of trim could have been imported from a module, so there's in fact only one explicit declaration in the code.
#!/usr/bin/perl use warnings; use strict; { package My; use Exporter qw{ import }; our @EXPORT = qw { trim }; sub trim { 1 } } 'My'->import; # Same as "use My;" if My was declared in My.pm sub trim ($) { 2 }
($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
In reply to Re^2: Prototype mismatch: sub main::trim: none vs ($)
by choroba
in thread Prototype mismatch: sub main::trim: none vs ($) at mysqlDB_serial.pl line 188.
by bNathan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |