文件操作 - Exception.pm
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/perl5/vendor_perl/JSON/WebToken/Exception.pm
编辑文件内容
package JSON::WebToken::Exception; use strict; use warnings; use overload ( q|""| => \&to_string, ); use Carp qw/croak/; sub throw { my ($class, %args) = @_; my $self = bless \%args, $class; croak $self; } sub code { $_[0]->{code} } sub message { $_[0]->{message} } sub to_string { $_[0]->message; } 1; __END__
修改文件时间
将文件时间修改为当前时间的前一年
删除文件