package Purge;
use strict; use warnings;

use base 'Exporter';
use File::Find;

our @EXPORT = qw( purge_dir strip_copyright strip_shebang strip_build_dir );

sub purge_dir {
}

sub real_purge_dir {
    my $doomed_dir = shift;

    return unless -d $doomed_dir;

    my $purger = sub {
        my $name = $_;

        if    ( -f $name ) { unlink $name; }
        elsif ( -d $name ) { rmdir $name;  }
    };

    finddepth( $purger, $doomed_dir );
    rmdir $doomed_dir;
}

sub strip_copyright {
    my $line = shift;
    $line    =~ s/\(C\)\s+\d+//;
    return $line;
}

sub strip_shebang {
    my $line = shift;
    $line    =~ s/^\s*#!.*//;
    return $line;
}

sub strip_build_dir {
    my $line = shift;

    $line    =~ s{`\S+(docs\W)}{`$1};                # master Gantry::Conf file
    $line    =~ s{dbname=\S+app\.db}{dbname=app.db}; # app.db sqlite database

    return $line;
}