$ perl -MO=Deparse -ce '$a->method'
$a->method;
-e syntax OK
$ perl -MO=Deparse -ce '$a->method()'
$a->method;
-e syntax OK
####
$ perl -MO=Concise -ce '$a->method()'
7 <@> leave[1 ref] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -e:1) v:{ ->3
6 <1> entersub[t2] vKS/TARG ->7
3 <0> pushmark s ->4
- <1> ex-rv2sv sKM/1 ->5
4 <#> gvsv[*a] s ->5
5 <$> method_named[PV "method"] ->6
-e syntax OK
$ perl -MO=Concise -ce '$a->method'
7 <@> leave[1 ref] vKP/REFC ->(end)
1 <0> enter ->2
2 <;> nextstate(main 1 -e:1) v:{ ->3
6 <1> entersub[t2] vKS/TARG ->7
3 <0> pushmark s ->4
- <1> ex-rv2sv sKM/1 ->5
4 <#> gvsv[*a] s ->5
5 <$> method_named[PV "method"] ->6
-e syntax OK
##
##
$ perl -MO=Concise -ce '$a->method' > a
-e syntax OK
$ perl -MO=Concise -ce '$a->method()' > b
-e syntax OK
$ diff a b | wc -l
0
##
##
$a->method / 1 # /;
$a->method() / 1 # /;