view release on metacpan or  search on metacpan

Examples.pm  view on Meta::CPAN

				$example_data;
			my $example_path = catfile('examples', $example_file);

			# Examples directory.
			if (! -r 'examples') {
				mkdir 'examples';
			}

			# Save example.
			barf($example_path, $example_data);
			chmod 0755, $example_path; 

			$num++;
		}
	}
	
	return 0;
}

1;