useãããpã¨ããé¢æ°ã使ããããã«ãããã Mod1.pm package Mod1; use strict; use warnings; use base qw/Exporter/; use Data::Dumper; our @EXPORT = qw/p/; sub p {warn Dumper shift} 1; main.pl use Mod1; p 123; å®è¡ % perl main.pl $VAR1 = 123;useãããuse strict/warningsãããã¨ã«ãªãããã«ãããã Mod2.pm package Mod2; use strict; use warnings; sub import { strict->import; warnings->import; } 1; main.pl use Mod2; sub hoge{ my ($va, $vb)
{{#tags}}- {{label}}
{{/tags}}