アクセサã®ä½œã‚Šæ–¹ã®ã¾ã¨ã‚ - Unknown::Programmingアクセサ(2) AUTOLOAD ã§ã‚¢ã‚¯ã‚»ã‚µ - ã±ã‚‹ã‚‚日記 アクセサã®ä½œæˆæ–¹æ³•ã¯ã„ã‚ã„ã‚ã‚ã‚‹ã‘ã©è‡ªä½œã™ã‚‹ãªã‚‰AUTOLOADã¨ã‹ä½¿ã‚ãšã«ã€ package Hoge::Class; use strict; for my $method (qw/age name tel hoge/) { my $code = sub { my $self = shift; $self->{$method} = shift if @_; return $self->{$method}; }; no strict 'refs'; *{$method} = $code; } ã£ã¦æ„Ÿã˜ã§ã‚¯ãƒãƒ¼ã‚¸ãƒ£ã¨åž‹ã‚°ãƒãƒ–ã§å®šç¾©ã™ã‚Œã°ã„ã„ã‹ã¨ã€‚ AUTOLOAD使ã†ãªã‚‰ä½¿ã†ã§ã€åˆå›žå‘¼ã³å‡ºã—時ã«ãƒ¡ã‚½ãƒƒãƒ‰å®šç¾©ã—ã¦ã—ã¾ã†ã®ãŒã‚»ã‚ªãƒªãƒ¼ãªã‚“ã§ã€ 二度目以é™ã¯AUTOLOADãŒå‘¼ã³å‡ºã•ã‚Œãªããªã‚‹ã‹ã‚‰é…ã„ã¨ã„ã†å•é¡Œã¯è§£æ±ºã™ã‚‹ã‹ã¨ã€‚ sub A
{{#tags}}- {{label}}
{{/tags}}