sub run {
 
    trace() if $ENV{TRACE};
 
    my $self = shift;
    my $p = shift;
 
    $self->_config($p);
 
    $self->_run_end(0);
 
    my $struct;
 
    if ($self->{params}{directory}){
        $struct = $self->_run_directory;
    }
    else {
        $struct = $self->_core;
        $self->_write_file if $self->{write_file_contents};
    }
 
    $self->_run_end(1);
 
    return $struct;
}