Pod::Simple::PullParserToken -- Pod::Simple::PullParser 中的代碼
給定一個 $parser 是 Pod::Simple::PullParser (或子類別) 類別的物件...
while(my $token = $parser->get_token) {
$DEBUG and print STDERR "Token: ", $token->dump, "\n";
if($token->is_start) {
...access $token->tagname, $token->attr, etc...
} elsif($token->is_text) {
...access $token->text, $token->text_r, etc...
} elsif($token->is_end) {
...access $token->tagname...
}
}
(另請參閱 Pod::Simple::PullParser)
當您在 Pod::Simple::PullParser 上執行 $parser->get_token 時,您應該會取得 Pod::Simple::PullParserToken 子類別的物件。
子類別會新增方法,並繼承下列方法
這會傳回代碼的類型。這會是字串 "start"、字串 "text" 或字串 "end"。
一旦您知道物件的類型,您就會知道它屬於哪個子類別,因此就會知道它支援哪些方法。
是的,您可能可以使用類似於 $token->isa('Pod::Simple::PullParserEndToken') 的程式碼執行相同的工作,但這不如僅使用 $token->type,甚至下列捷徑來得簡潔
這是 $token->type() eq "start"
的捷徑
這是 $token->type() eq "text"
的捷徑
這是 $token->type() eq "end"
的捷徑
這會傳回此物件的方便字串化值。這對於除錯很有用,例如
while(my $token = $parser->get_token) {
$DEBUG and print STDERR "Token: ", $token->dump, "\n";
...
}
我的子類別:Pod::Simple::PullParserStartToken、Pod::Simple::PullParserTextToken 和 Pod::Simple::PullParserEndToken。
Pod::Simple::PullParser 和 Pod::Simple
關於 POD 和 Pod::Simple 的問題或討論應傳送至 pod-people@perl.org 郵件清單。傳送一封空白電子郵件至 pod-people-subscribe@perl.org 以訂閱。
此模組在開放的 GitHub 儲存庫中進行管理,https://github.com/perl-pod/pod-simple/。歡迎分岔和貢獻,或複製 git://github.com/perl-pod/pod-simple.git 並傳送修補程式!
歡迎針對 Pod::Simple 的修補程式。請將錯誤報告傳送至 <bug-pod-simple@rt.cpan.org>。
版權所有 (c) 2002 Sean M. Burke。
此程式庫是免費軟體;您可以在與 Perl 相同的條款下重新散布或修改它。
散布此程式是希望它會對您有所幫助,但沒有任何保證;甚至沒有對特定目的的適售性或適用性的默示保證。
Pod::Simple 是由 Sean M. Burke <sburke@cpan.org> 建立的。但別打擾他,他已經退休了。
Pod::Simple 由下列人員維護
Allison Randal allison@perl.org
Hans Dieter Pearcey hdp@cpan.org
David E. Wheeler dwheeler@cpan.org