未定義の値でメソッドXを呼び出すことができません

Question

次のコードでは、「...行6」の未定義の値で「メソッドを呼び出せません」というエラーが発生するのはなぜですか？私は似たような記事を読んだことがあります。なぜこの種のエラーメッセージが表示されるのか理解できると思いますが、ここでどのように適用されるのか分かりません。このコードをWWW :: Mechanizeモジュールのチュートリアルからコピーしたので、私はそれを缶の外に出すことを期待しました。あなたが$m変数にWWW::Mechanizeクラスのインスタンスを割り当てるステップを見逃している

#!/usr/bin/perl 
use warnings ; 
use strict ; 
use WWW::Mechanize; 
my $url = 'http://www.google.com'; 
my $m->get($url); 
my $link = $m->find_link(text =>'Advanced Search'); 
print "The Google advanced search URL is: $link->url()\n"; 

Answer 1

：

use WWW::Mechanize; 

my $m = WWW::Mechanize->new; # <-- HERE 

my $url = 'http://www.google.com'; 

$m->get($url); # ...and remove 'my' from this line 

my $link = $m->find_link(text =>'Advanced Search'); 

# also, a method call won't interpolate properly, so change 
# the below line as well: 

print "The Google advanced search URL is: " . $link->url() . "\n"; 

# or: 

# my $result = $link->url(); 
# print "The Google advanced search URL is: $result\n";