Module/Install/Metadata.pm

19 	name
129 		my $name  = shift or last;
131 		if ( $name eq lc $name and ! $lc_resource{$name} ) {
132 			die("Unsupported reserved lowercase resource '$name'");
135 		push @{ $self->{values}->{resources} }, [ $name, $value ];
217 	my ( $self, $file ) = @_;
219 	unless ( defined($file) ) {
220 		my $name = $self->name or die(
221 			"all_from called with no args without setting name() first"
223 		$file = join('/', 'lib', split(/-/, $name)) . '.pm';
224 		$file =~ s{.*/}{} unless -e $file;
225 		unless ( -e $file ) {
226 			die("all_from cannot find $file from $name");
229 	unless ( -f $file ) {
230 		die("The path '$file' does not exist, or is not a file");
235 	my $pod = $file;
237 	$pod = $file unless -e $pod;
240 	$self->name_from($file)         unless $self->name;
241 	$self->version_from($file)      unless $self->version;
242 	$self->perl_version_from($file) unless $self->perl_version;
271 		dist_name    => $self->name,
280 	my $name     = shift;
294 		$name => [
306 	while ( my ( $name, $mods ) = splice( @_, 0, 2 ) ) {
307 		$self->feature( $name, @$mods );
351 	my ( $self, $file ) = @_;
352 	$self->version( ExtUtils::MM_Unix->parse_version($file) );
357 	my ( $self, $file ) = @_;
360 			{ DISTNAME => $self->name },
362 		)->parse_abstract($file)
366 # Add both distribution and module name
368 	my ($self, $file) = @_;
370 		Module::Install::_read($file) =~ m/
377 		my ($name, $module_name) = ($1, $1);
378 		$name =~ s{::}{-}g;
379 		$self->name($name);
384 		die("Cannot determine name from $file\n");
412 		=head \d \s+ (?:authors?)\b \s*
549 	# We need YAML::Tiny to write the MYMETA.yml file
557 	# Save as the MYMETA.yml file
565 	# We need JSON to write the MYMETA.json file
573 	# Save as the MYMETA.yml file
577 		JSON->new->pretty(1)->canonical->encode($meta),
587 	# We need Parse::CPAN::Meta to load the file
606 	# Load the advisory META.yml file