文件操作 - 03_functions.t
返回文件管理
返回主菜单
删除本文件
文件: /usr/share/doc/perl-CPAN-Meta/t/parse-cpan-meta/03_functions.t
编辑文件内容
#!/usr/bin/perl delete $ENV{PERL_YAML_BACKEND}; delete $ENV{PERL_JSON_BACKEND}; # Testing of basic document structures use strict; BEGIN { $| = 1; $^W = 1; } use Test::More tests => 2; use Parse::CPAN::Meta (); my $one = <<'END_YAML'; --- - foo END_YAML my $two = <<'END_YAML'; --- - foo --- - bar END_YAML my $one_scalar_tiny = Parse::CPAN::Meta::Load( $one ); my $two_scalar_tiny = Parse::CPAN::Meta::Load( $two ); is_deeply( $one_scalar_tiny, [ 'foo' ], 'one: Parsed correctly' ); is_deeply( $two_scalar_tiny, [ 'bar' ], 'two: Parsed correctly' );
修改文件时间
将文件时间修改为当前时间的前一年
删除文件