package CLMApp::Controller::ListModule;
# use base "CLMApp::Controller";
use Mojo::Base 'Mojolicious::Controller';
use Data::Show;
use Moose;
use Moose::Autobox;
use Perl6::Junction qw/any/;
use Data::Show;
use JSON;
use strict;
use Cwd;
use Digest::MD5 qw(md5 md5_hex md5_base64);
use Digest::SHA1  qw(sha1 sha1_hex sha1_base64);
use Storable 'dclone';
use File::Basename;
$Storable::Deparse = 1;
$Storable::Eval = 1;


sub index{
	my $c = shift;

	my @ordersystems = $c->db->resultset('OrderInvoiceSystem')->search({
		'me.ordersystem'=> 1
	}, 
	{
		result_class=>'DBIx::Class::ResultClass::HashRefInflator',
		order_by => [qw/systemname/],
	}) or return $c->render(text => 'Record not found.', status => 405);
	$c->stash(ordersystems => \@ordersystems);

	$c->render(template => 'views/list');
}


sub read{
	my $c = shift;

}

sub create{
	my $c = shift;

	$c->render(template => 'snippets/list.form');
}


sub list{
	my $c = shift;	

}

sub delete{
	my $c = shift;

}




1;