Hello, Monks!

New parsing question here. This time about % char. Which can be a hash sigil or mod operator

Example:

use strict;

package Foo;

sub new{return bless {}, 'Foo';}
sub mysub{ say "invoked foo->mysub"; }


package main;
sub mysub{ say "invoked mysub";}

my $foo = Foo->new();
$foo->mysub % 2;
$foo->mysub %2;

mysub % 2;
mysub %2;
[download]

No prototype in main sub and no prototype in Foo sub (object invocation are ignoring it anyway). Deparse gives me:

package Foo;
sub new {
    use strict;
    return bless({}, 'Foo');
}
sub mysub {
    use strict;
    print "invoked foo->mysub\n";
}
package main;
sub mysub {
    use strict;
    print "invoked mysub\n";
}
use strict;
my $foo = 'Foo'->new;
$foo->mysub % 2;
$foo->mysub % 2;
mysub %2;
mysub %2;
[download]

Object invocation treats % as mod operator. And sub invocation treats as hash sigil. Why so?