Lines Matching full:element
93 # called as $converter->($element, $field_name, $full_meta, $to_version)
139 my ($element, undef, undef, $version) = @_;
175 my ($element) = @_;
176 return 'unknown' unless defined $element;
177 if ( $license_map_1{lc $element} ) {
178 return $license_map_1{lc $element};
231 my ($element) = @_;
232 return [ 'unknown' ] unless defined $element;
233 $element = [ $element ] unless ref $element eq 'ARRAY';
235 for my $lic ( @$element ) {
275 my ($element) = @_;
276 if ( ! defined $element ) {
279 elsif( ref $element eq 'ARRAY' ) {
280 if ( @$element > 1) {
281 if (grep { !$is_open_source{ $license_downgrade_map{lc $_} || 'unknown' } } @$element) {
288 elsif ( @$element == 1 ) {
289 return $license_downgrade_map{lc $element->[0]} || "unknown";
292 elsif ( ! ref $element ) {
293 return $license_downgrade_map{lc $element} || "unknown";
347 my ($element, $key, $meta, $version) = @_;
348 return unless $element;
351 if ( ! ref $element ) {
352 my $item = $element;
353 $element = { directory => [ $item ], file => [ $item ] };
355 elsif ( ref $element eq 'ARRAY' ) {
356 my $list = $element;
357 $element = { directory => [ @$list ], file => [ @$list ] };
360 if ( exists $element->{dir} ) {
361 $element->{directory} = delete $element->{dir};
364 if ( exists $element->{files} ) {
365 $element->{file} = delete $element->{files};
368 if ( exists $element->{modules} ) {
369 $element->{module} = delete $element->{modules};
372 return _convert($element, $spec);
382 my ($element) = @_;
383 return 0 if ! defined $element;
385 $element =~ s{^\s*}{};
386 $element =~ s{\s*$}{};
387 $element =~ s{^\.}{0.};
389 return 0 if ! length $element;
390 return 0 if ( $element eq 'undef' || $element eq '<undef>' );
392 my $v = eval { version->new($element) };
396 return _is_qv($v) ? $v->normal : $element;
413 my ($element) = @_;
414 return unless defined $element;
415 if ( ref $element eq 'HASH' ) {
421 while ( my ($k,$v) = each %$element ) {
436 elsif ( ref $element eq 'ARRAY' ) {
437 my $hashref = { map { $_ => 0 } @$element };
440 elsif ( ref $element eq '' && length $element ) {
441 return { $element => 0 }
572 my ($element, $key, $meta, $to_version) = @_;
573 return unless $element && ref $element eq 'HASH';
574 _convert( $element, $optional_features_2_spec, $to_version );
578 my ($element, $key, $meta, $to_version) = @_;
579 return unless $element && ref $element eq 'HASH';
581 for my $k ( keys %$element ) {
582 $new_data->{$k} = _feature_2( $element->{$k}, $k, $meta, $to_version );
589 my ($element) = @_;
590 return unless $element;
591 $element = _optional_features_as_map($element);
592 for my $name ( keys %$element ) {
594 delete $element->{$name}{$drop};
597 return $element;
601 my ($element) = @_;
602 return unless $element;
603 if ( ref $element eq 'ARRAY' ) {
605 for my $feature ( @$element ) {
609 $element = \%map;
611 return $element;
617 my ($element) = @_;
618 return $element if _is_urlish($element);
623 my ($element) = @_;
624 return unless $element;
625 $element = _listify( $element );
626 $element = [ grep { _is_urlish($_) } @$element ];
627 return unless @$element;
628 return $element;
632 my ($element) = @_;
633 return [ 'unknown' ] unless $element;
634 $element = _listify( $element );
635 $element = [ map { defined $_ && length $_ ? $_ : 'unknown' } @$element ];
636 return [ 'unknown' ] unless @$element;
637 return $element;
667 my ($element, $key, $meta, $to_version) = @_;
668 return $element if defined $element;
740 my ($element, undef, $meta) = @_;
741 return $element if $element && $element =~ m{\A(?:stable|testing|unstable)\z};
763 my ($element, $key, $meta, $to_version) = @_;
764 return unless defined $element && ref $element eq 'HASH';
767 for my $k ( keys %$element ) {
768 $new_data->{$k} = _convert($element->{$k}, $spec, $to_version);
769 $new_data->{$k}{version} = _clean_version($element->{$k}{version})
770 if exists $element->{$k}{version};