Merge META work
H.Merijn Brand - Tux
3 years ago
| 330 | 330 | $self->{quiet}; |
| 331 | 331 | } # quiet |
| 332 | 332 | |
| 333 | sub print_json { | |
| 334 | my $self = shift; | |
| 335 | my $jsn = $self->{jsn} || $self->add_json (); | |
| 336 | print JSON::PP->new->utf8 (1)->pretty (1)->encode ($jsn); | |
| 337 | } # print_json | |
| 338 | ||
| 333 | 339 | sub print_yaml { |
| 334 | 340 | my $self = shift; |
| 335 | 341 | print @{$self->{yml}}; |
| 345 | 351 | $self->fix_meta ($out); |
| 346 | 352 | } # print_yaml |
| 347 | 353 | |
| 348 | sub fix_meta { | |
| 349 | my ($self, $yf) = @_; | |
| 350 | ||
| 354 | sub add_json { | |
| 355 | my $self = shift; | |
| 351 | 356 | # Convert to meta-spec version 2 |
| 352 | 357 | # licenses are lists now |
| 353 | 358 | my $jsn = $self->{h}; |
| 408 | 413 | |
| 409 | 414 | $jsn = CPAN::Meta::Converter->new ($jsn)->convert (version => "2"); |
| 410 | 415 | $jsn->{generated_by} = "Author"; |
| 416 | $self->{jsn} = $jsn; | |
| 417 | } # add_json | |
| 418 | ||
| 419 | sub fix_meta { | |
| 420 | my ($self, $yf) = @_; | |
| 421 | ||
| 422 | my $jsn = $self->add_json (); | |
| 411 | 423 | |
| 412 | 424 | my $cmv = CPAN::Meta::Validator->new ($jsn); |
| 413 | 425 | $cmv->is_valid or |