📄 warnings.t
字号:
#!/usr/bin/perl -wBEGIN { if( $ENV{PERL_CORE} ) { chdir 't' if -d 't'; @INC = qw(../lib); }}use strict;use Test::More tests => 1;my $warnings;BEGIN { $SIG{__WARN__} = sub { $warnings = join '', @_ };}{ package Foo; use fields qw(thing);}{ package Bar; use fields qw(stuff); use base qw(Foo);}::like $warnings, '/^Bar is inheriting from Foo but already has its own fields!/', 'Inheriting from a base with protected fields warns';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -