package Sitescriptor::Module::Metatest::Dotcar;

use Thirdparty::Config::Tiny;
use Thirdparty::JSON::PP;
#
# das uebliche new() etc.....
#
sub upload_handler
    {
    my $Self = shift;
    #----
    $Self->{'tinyobj'} = Config::Tiny->new();   # Open the config
    $Self->{'tinyobj'} = Config::Tiny->read( $Self->{'tinyfilename'} ); # Create a config
    return ;
    }
    
sub json_handler
    {
    my $Self        = shift;
    #----
    if( exists $Self->{'tinyobj'} )
        {
        $Self->{'json'} = JSON::PP->new->ascii->allow_nonref->allow_blessed->encode( $Self->{'tinyobj'} );
        }
    return;
    }