split perl source/pod to save to Mod.pm/Mod.pod

pod-clipper

#!/usr/bin/env perl
# split perl source/pod to save to Mod.pm/Mod.pod

use strict;
use warnings;
use Path::Class qw(file);
use Pod::Clipper;

my $file = shift @ARGV or die "usage: $0 <perl module file>";

my $clipper = Pod::Clipper->new( { data => scalar file( $file )->slurp } );
my @pod;
my @source;
for my $block( @{ $clipper->all} ){
  if( $block->is_pod ){
		push @pod, $block->data;
	}
	else {
		push @source, $block->data;
	}
}

# save pod
do {
	my $pod = join "\n\n", @pod;
	
	$pod =~ s{^=pod\n+}{}sm;
	$pod =~ s{=cut\n\n=pod\n\n}{}smg;
	$pod =~ s{\n+=cut$}{\n}s;
	
	my $fh = file("./Mod.pod")->openw;
	$fh->print( $pod );
	$fh->close;
};

# save source
do {
	my $fh = file("./Mod.pm")->openw;
	$fh->print( join "", @source );
	$fh->close;
};

__END__