errorhandler.pm

来自「网页留言本,比一般的留言簿管用」· PM 代码 · 共 22 行

PM
22
字号
# $Id: ErrorHandler.pm 4536 2004-05-11 05:33:05Z btrott $package XML::Atom::ErrorHandler;use strict;use vars qw( $ERROR );sub new    { bless {}, shift }sub error  {    my $msg = $_[1] || '';    $msg .= "\n" unless $msg =~ /\n$/;    if (ref($_[0])) {        $_[0]->{_errstr} = $msg;    } else {        $ERROR = $msg;    }    return; }sub errstr { ref($_[0]) ? $_[0]->{_errstr} : $ERROR }1;

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?