package DBIx::dbMan::Extension::Fallback;
use strict;
use base 'DBIx::dbMan::Extension';
our $VERSION = '0.05';
1;
sub IDENTIFICATION { return "000001-000002-000005"; }
sub preference { return -99999; }
sub handle_action {
my ($obj,%action) = @_;
$action{processed} = 1;
$action{action} = 'NONE' if $action{action} eq 'IDLE';
# Not handled command
if ($action{action} eq 'COMMAND') {
$action{action} = 'OUTPUT';
$action{output} = '';
$obj->{-interface}->error( "Unknown command (".$action{cmd}.")." );
delete $action{processed};
} elsif (not $action{action}) { # internal - incorrect handling of action
$obj->{-interface}->print("INTERNAL: Action not correctly handled by some extension!\n");
} elsif ($action{action} ne 'NONE' and $action{action} ne 'QUIT') { # internal - action not handled
$obj->{-interface}->print("INTERNAL: Not handled action $action{action}.\n");
$action{action} = 'NONE';
}
return %action;
}