view release on metacpan or  search on metacpan

Examples.pm  view on Meta::CPAN

			my $examples_dir = catdir($working_dir, 'examples');
			my $example_path = catfile($examples_dir, $example_file);

			# Examples directory.
			if (! -r $examples_dir) {
				mkdir $examples_dir;
			}

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

			$num++;
		}
	}
	
	return 0;
}

# Get section name and number of example.
sub _section_and_number {