view release on metacpan or  search on metacpan

lib/PITA/Image/Discover.pm  view on Meta::CPAN

	### Although we might not be running in the Local driver,
	### WE can't tell the difference, so we might as well be.
	### The driver will correct it later if it's wrong.
	my $guest = PITA::XML::Guest->new(
		driver => 'Local',
		params => {},
	);

	# Run the discovery on each platform
	foreach my $discovery ( @{$self->discoveries} ) {
		require Devel::Dumpvar;
		$discovery->delegate;
		if ( $discovery->platform ) {
			$guest->add_platform( $discovery->platform );
		} else {
			my $path = $discovery->path;
			Carp::croak("Error finding platform at $path");
		}
	}

	# Looks good, save