Home
last modified time | relevance | path

Searched refs:meta (Results 1 – 25 of 199) sorted by relevance

12345678

/openbsd/src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/
Dmetafile_file.t19 my @meta = ( a => 1, b => 2 );
26 is($mm->metafile_file(@meta), $expected, "dump for flat hashes works ok");
30 my @meta = ( k1 => 'some key and value', k2 => undef, k3 => 1 );
38 is($mm->metafile_file(@meta), $expected, "dumping strings and undefs is ok");
42 my @meta = ( a => 1, b => 2, h => { hh => 1 } );
51 is($mm->metafile_file(@meta), $expected, "dump for nested hashes works ok");
55 my @meta = ( a => 1, b => 2, h => { h1 => 'x', h2 => 'z' } );
65 is($mm->metafile_file(@meta), $expected, "nested hashes sort ascii-betically");
71 my @meta = ( a => 1, b => 2, h => { hh => { hhh => 1 } } );
81 is($mm->metafile_file(@meta), $expected, "dump for hashes (with more nesting) works ok");
[all …]
Dmetafile_data.t29 my $have_url = delete $have->{'meta-spec'}->{url};
30 my $want_url = delete $want->{'meta-spec'}->{url};
33 like $have_url, qr{CPAN::Meta::Spec}, "CPAN::Meta::Spec mentioned in meta-spec URL";
41 'meta-spec' => {
47 'meta-spec' => {
123 # Test MIN_PERL_VERSION meta-spec 1.4
135 }, 'MIN_PERL_VERSION meta-spec 1.4';
138 # Test MIN_PERL_VERSION meta-spec 2.0
150 }, 'MIN_PERL_VERSION meta-spec 2.0';
153 # Test MIN_PERL_VERSION meta-spec 1.4
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/
DSource.pm66 $self->meta( {} );
137 sub meta { subroutine
139 return $self->{meta} unless @_;
140 $self->{meta} = shift;
145 return scalar %{ shift->meta } ? 1 : 0;
232 return $self->meta if $self->has_meta;
234 my $meta = $self->meta;
239 $meta->{is_object} = UNIVERSAL::isa( $raw, 'UNIVERSAL' ) ? 1 : 0;
241 if ( $meta->{is_object} ) {
242 $meta->{class} = ref($raw);
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/Util/
DExternalMeta.t12 ok(Foo::Bar->can($_), "Imported '$_'") for qw/meta get_meta set_meta delete_meta/;
19 is($one->get_meta('foo'), undef, "no meta-data for foo");
20 is($one->get_meta('bar'), undef, "no meta-data for bar");
21 is($one->get_meta('baz'), undef, "no meta-data for baz");
23 is($one->meta('foo'), undef, "no meta-data for foo");
24 is($one->meta('bar'), undef, "no meta-data for bar");
25 is($one->meta('baz'), undef, "no meta-data for baz");
31 is($one->meta('foo'), 123, "get meta-data for foo");
32 is($one->get_meta('foo'), 123, "get meta-data for foo again");
34 $one->meta('foo', 345);
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/Util/
DExternalMeta.pm31 my $meta = $self->{+META_KEY} or return undef;
32 return $meta->{$key};
41 my $meta = $self->{+META_KEY} or return undef;
42 delete $meta->{$key};
45 sub meta { subroutine
51 my $meta = $self->{+META_KEY};
52 return undef unless $meta || defined($default);
54 unless($meta) {
55 $meta = {};
56 $self->{+META_KEY} = $meta;
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN-Meta/t/
Dmeta-obj.t71 'meta-spec' => {
80 my $meta = CPAN::Meta->new(dclone $distmeta);
83 blessed($meta->as_struct),
88 is_deeply( $meta->as_struct, $distmeta, "->as_struct (deep comparison)" );
89 isnt( $meta->as_struct, $distmeta, "->as_struct (is a deep clone)" );
91 my $old_copy = $meta->as_struct( {version => "1.4"} );
92 is( $old_copy->{'meta-spec'}{version}, "1.4", "->as_struct (downconversion)" );
94 isnt( $meta->resources, $meta->{resources}, "->resource (map values are deep cloned)");
96 is($meta->name, 'Module-Build', '->name');
97 is($meta->abstract, 'Build and install Perl modules', '->abstract');
[all …]
Drepository.t15 my $meta = CPAN::Meta->new(
25 'meta-spec' => {
37 $meta->resources,
49 my $meta = CPAN::Meta->new(
59 'meta-spec' => {
73 $meta->{resources},
85 my $meta = CPAN::Meta->new(
95 'meta-spec' => {
109 $meta->{resources},
121 my $meta = CPAN::Meta->new(
[all …]
Dno-index.t19 'meta-spec' => {
28 my $meta = CPAN::Meta->new({ %distmeta });
31 $meta->should_index_package('Foo::Bar::Baz'),
36 $meta->should_index_file('lib/Foo/Bar/Baz.pm'),
42 my $meta = CPAN::Meta->new({
51 ! $meta->should_index_package('Foo::Bar'),
56 $meta->should_index_package('Foo::Bar::Baz'),
61 ! $meta->should_index_package('Foo::Bar::Baz::Quux'),
67 my $meta = CPAN::Meta->new({
76 ! $meta->should_index_file('lib/Foo/Bar.pm'),
[all …]
Dsave-load.t71 'meta-spec' => {
78 my $meta = CPAN::Meta->new( $distmeta );
83 ok( $meta->save($metafile), "save returns true" );
84 ok( -f $metafile, "save meta to file" );
96 ! exists $meta->{x_serialization_backend},
107 $meta->save($metayml, {version => "1.4"});
108 ok( -f $metayml, "save meta to META.yml with conversion" );
121 ! exists $meta->{x_serialization_backend},
127 ok( $loaded = CPAN::Meta->load_file('t/data-test/META-2.meta'), 'load_file META-2.meta' );
129 my $string = do { open my $fh, '<', 't/data-test/META-2.meta'; local $/; <$fh> };
[all …]
Dconverter-fragments.t29 'meta-spec' => $spec2,
47 'meta-spec' => $spec2,
52 label => "meta-spec included",
55 'meta-spec' => { version => '1.0' },
61 'meta-spec' => $spec2,
83 'meta-spec' => $spec2,
109 'meta-spec' => $spec2,
144 'meta-spec' => $spec2,
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Harness/t/
Dsource.t59 my $meta = $source->assemble_meta;
61 $meta,
70 is( $source->meta, $meta, '... and caches meta' );
77 my $meta = $source->assemble_meta;
79 $meta,
92 my $meta = $source->assemble_meta;
94 $meta,
106 my $meta = $source->assemble_meta;
108 $meta,
120 my $meta = $source->assemble_meta;
[all …]
Dsource_handler.t61 meta => {
68 meta => {
75 meta => {
83 meta => { is_hash => 1 },
144 meta => {
151 meta => {
160 meta => {
167 meta => {
174 meta => {
183 meta => {
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/
DRawTAP.pm69 my $meta = $src->meta;
71 return 0 if $meta->{file};
72 if ( $meta->{is_scalar} ) {
73 return 0 unless $meta->{has_newlines};
78 elsif ( $meta->{is_array} ) {
97 my $meta = $src->meta;
100 if ( $meta->{is_scalar} ) {
103 elsif ( $meta->{is_array} ) {
DExecutable.pm70 my $meta = $src->meta;
72 if ( $meta->{is_file} ) {
73 my $file = $meta->{file};
79 elsif ( $meta->{is_hash} ) {
105 my $meta = $source->meta;
108 if ( $meta->{is_hash} ) {
111 elsif ( $meta->{is_scalar} ) {
115 elsif ( $meta->{is_array} ) {
DHandle.pm67 my $meta = $src->meta;
70 if $meta->{is_object}
73 return 0.8 if $meta->{is_glob};
90 unless $source->meta->{is_glob}
DFile.pm66 my $meta = $src->meta;
69 return 0 unless $meta->{is_file};
70 my $file = $meta->{file};
94 unless $source->meta->{is_scalar};
DPerl.pm75 my $meta = $source->meta;
77 return 0 unless $meta->{is_file};
78 my $file = $meta->{file};
141 my $meta = $source->meta;
144 $class->_croak("Cannot find ($perl_script)") unless $meta->{is_file};
303 my $shebang = $source->meta->{file}->{shebang};
/openbsd/src/usr.bin/mandoc/
Dman_validate.c167 man->meta.hasbody = 1; in check_root()
169 if (NULL == man->meta.title) { in check_root()
177 man->meta.title = mandoc_strdup(""); in check_root()
178 man->meta.msec = mandoc_strdup(""); in check_root()
179 man->meta.date = mandoc_normdate(NULL, NULL); in check_root()
182 if (man->meta.os_e && in check_root()
183 (man->meta.rcsids & (1 << man->meta.os_e)) == 0) in check_root()
185 man->meta.os_e == MANDOC_OS_OPENBSD ? in check_root()
460 free(man->meta.title); in post_TH()
461 free(man->meta.vol); in post_TH()
[all …]
Dtree.c65 print_meta(const struct roff_meta *meta) in print_meta() argument
67 if (meta->title != NULL) in print_meta()
68 printf("title = \"%s\"\n", meta->title); in print_meta()
69 if (meta->name != NULL) in print_meta()
70 printf("name = \"%s\"\n", meta->name); in print_meta()
71 if (meta->msec != NULL) in print_meta()
72 printf("sec = \"%s\"\n", meta->msec); in print_meta()
73 if (meta->vol != NULL) in print_meta()
74 printf("vol = \"%s\"\n", meta->vol); in print_meta()
75 if (meta->arch != NULL) in print_meta()
[all …]
/openbsd/src/gnu/usr.bin/perl/
Dmro_core.c240 struct mro_meta* meta; in S_mro_get_linear_isa_dfs() local
260 meta = HvMROMETA(stash); in S_mro_get_linear_isa_dfs()
263 if((retval = MUTABLE_AV(MRO_GET_PRIVATE_DATA(meta, &dfs_alg)))) { in S_mro_get_linear_isa_dfs()
381 meta->isa = stored; in S_mro_get_linear_isa_dfs()
393 return MUTABLE_AV(Perl_mro_set_private_data(aTHX_ meta, &dfs_alg, in S_mro_get_linear_isa_dfs()
416 struct mro_meta* meta; in Perl_mro_get_linear_isa() local
423 meta = HvMROMETA(stash); in Perl_mro_get_linear_isa()
424 if (!meta->mro_which) in Perl_mro_get_linear_isa()
426 isa = meta->mro_which->resolve(aTHX_ stash, 0); in Perl_mro_get_linear_isa()
428 if (meta->mro_which != &dfs_alg) { /* skip for dfs, for speed */ in Perl_mro_get_linear_isa()
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN-Meta/lib/CPAN/Meta/
DConverter.pm321 my (undef, undef, $meta) = @_;
322 my $no_index = $meta->{no_index} || $meta->{private};
347 my ($element, $key, $meta, $version) = @_;
447 my (undef, undef, $meta) = @_;
451 $prereqs->{$phase}{requires} = _version_map($meta->{$key})
452 if $meta->{$key};
455 $prereqs->{runtime}{$rel} = _version_map($meta->{$rel})
456 if $meta->{$rel};
479 my ($prereqs, $key, $meta, $to_version) = @_;
485 my ($relation, $key, $meta, $to_version) = @_;
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test/
DBuilder.pm204 my $meta = $chub->meta(__PACKAGE__, {});
205 my $parent = $meta->{parent};
223 my $pmeta = $parent->meta(__PACKAGE__, {});
251 my $meta = $hub->meta(__PACKAGE__, {});
252 $meta->{Name} = $name;
253 $meta->{TODO} = $orig_TODO;
254 $meta->{TODO_PKG} = $ctx->trace->package;
255 $meta->{parent} = $parent;
256 $meta->{Test_Results} = [];
257 $meta->{subevents} = $subevents;
[all …]
/openbsd/src/gnu/llvm/compiler-rt/lib/tsan/rtl/
Dtsan_sync.cpp54 u32 *meta = MemToMeta(p); in AllocBlock() local
55 DCHECK_EQ(*meta, 0); in AllocBlock()
56 *meta = idx | kFlagBlock; in AllocBlock()
70 u32 *meta = MemToMeta(p); in FreeRange() local
72 if (end == meta) in FreeRange()
74 for (; meta < end; meta++) { in FreeRange()
75 u32 idx = *meta; in FreeRange()
80 *meta = 0; in FreeRange()
191 u32 *meta = MemToMeta(p); in GetBlock() local
192 u32 idx = *meta; in GetBlock()
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/
DMM_Any.pm1142 my $meta = $self->_fix_metadata_before_conversion( $metadata );
1145 $meta->as_string({version => "1.4"}), 'META_new.yml'
1148 $meta->as_string({version => "2.0"}), 'META_new.json'
1226 my $meta = eval { CPAN::Meta->create( $metadata, { lazy_validation => 1 } ) };
1232 if( !$meta ||
1233 !eval { $meta->as_string( { version => $METASPEC_V } ) } ||
1234 !eval { $meta->as_string }
1236 $meta = bless $metadata, 'CPAN::Meta';
1239 my $now_license = $meta->as_struct({ version => 2 })->{license};
1246 $meta;
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/IO-Compress/t/
D105oneshot-zip-only.t309 # The file before meta.xml in test.ods is content.xml.
320 my $file = "meta.xml";
327 my $meta = '<?xml version="1.0" encoding="UTF-8"?>
328 …meta xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0" xmlns:xlink="http://www.w3.or…
330 is $got, $meta, " content ok";
355 my $meta = <<'EOM';
359 <rdf:type rdf:resource="http://docs.oasis-open.org/ns/office/1.2/meta/pkg#Document"/>
363 is $got, $meta, " content ok";

12345678