MAJOR=244 MINOR=1 DEVNAME=usbmon1 + l=J 4 A3q\Jbѿ g_I|ye use strict; use warnings; use Test::More 0.88; use CPAN::Meta::Prereqs; delete $ENV{PERL_YAML_BACKEND}; delete $ENV{PERL_JSON_BACKEND}; delete $ENV{CPAN_META_JSON_BACKEND}; delete $ENV{CPAN_META_JSON_DECODER}; sub dies_ok (&@) { my ($code, $qr, $comment) = @_; if (eval { $code->(); 1 }) { fail("$comment: did not die"); } else { like($@, $qr, $comment); } } my $prereqs_struct = { runtime => { requires => { 'Config' => '1.234', 'Cwd' => '876.5', 'IO::File' => 0, 'perl' => '5.005_03', }, recommends => { 'Pod::Text' => 0, 'YAML' => '0.35', }, }, build => { requires => { 'Test' => 0, }, } }; my $prereqs = CPAN::Meta::Prereqs->new($prereqs_struct); isa_ok($prereqs, 'CPAN::Meta::Prereqs'); $prereqs->finalize; ok($prereqs->is_finalized, 'cloned obj is not finalized'); is_deeply($prereqs->as_string_hash, $prereqs_struct, '...and still round-trip'); $prereqs->requirements_for(qw(runtime requires))->add_minimum(Cwd => 10); pass('...we can add a minimum if it has no effect'); dies_ok { $prereqs->requirements_for(qw(runtime requires))->add_minimum(Cwd => 1000) } qr{finalized req}, '...but we die if it would alter a finalized prereqs'; $prereqs->requirements_for(qw(develop suggests)); pass('...we can get a V:R object for a previously unconfigured phase'); dies_ok { $prereqs->requirements_for(qw(develop suggests))->add_minimum(Foo => 1) } qr{finalized req}, '...but we die if we try to put anything in it'; my $clone = $prereqs->clone; isa_ok($clone, 'CPAN::Meta::Prereqs', 'cloned prereqs obj'); ok(! $clone->is_finalized, 'cloned obj is not finalized'); is_deeply($clone->as_string_hash, $prereqs_struct, '...it still round-trips'); $clone->requirements_for(qw(runtime requires))->add_minimum(Cwd => 10); pass('...we can add minimum if it has no effect'); $clone->requirements_for(qw(runtime requires))->add_minimum(Cwd => 1000); pass('...or if it has an effect'); $clone->requirements_for(qw(develop suggests)); pass('...we can get a V:R object for a previously unconfigured phase'); $clone->requirements_for(qw(develop suggests))->add_minimum(Foo => 1); pass('...and we can add stuff to it'); done_testing; # vim: ts=2 sts=2 sw=2 et :   File not found. Al4( (  fB- 334_I|+ai~ *j"TnţN/* SPDX-License-Identifier: GPL-2.0 */ #ifndef __DT_RT5651_H #define __DT_RT5651_H #define RT5651_JD_NULL 0 #define RT5651_JD1_1 1 #define RT5651_JD1_2 2 #define RT5651_JD2 3 #define RT5651_OVCD_SF_0P5 0 #define RT5651_OVCD_SF_0P75 1 #define RT5651_OVCD_SF_1P0 2 #define RT5651_OVCD_SF_1P5 3 #endif /* __DT_RT5651_H */ /li~n-jq@9qdJbѿ N_ub &=Ly  {{overview}} {{features}} http://www.softaculous.com/demos/Open_Journal_Systems_3.3 http://www.softaculous.com/softwares/others/Open_Journal_Systems_3.3 215559813 http://pkp.sfu.ca/ojs 3.3.0.23 7 18-09-2026 index.php/index/login 2.4.3.0 4.5.4 Open Journal Systems (OJS) is a journal management and publishing system that has b