package NAB::Utils::NP;

use strict;
use Data::Dumper;
use CGI::Util qw/ rearrange /;

our $Q;
our $VERSION = "1.00";

sub new {
  my $class = shift;
  if (!defined $Q) {
     $Q = { ALIAS => caller(0) };
        bless($Q, $class);
  }
  return $Q;
}

sub named_param {
  my($self, $seq, @p) = self_or_default(@_);
  my($s, @r) = self_or_default(@p);
  return rearrange($seq, @r);
}

sub self_or_default {
  my $class = $Q;
  if (defined $_[0] &&
   (! ref $_[0] && ($_[0] eq ref $class || $_[0] eq $Q->{ALIAS}))) {
    return @_;
  }

  return @_ if (ref $_[0] eq ref $class || ref $_[0] eq $Q->{ALIAS});

  unless (defined($_[0]) &&
         (ref($_[0]) eq $class || UNIVERSAL::isa($_[0], $class)))
  {
    unshift(@_,$Q);
  }

  return wantarray ? @_ : $Q;
}

1;