#!/usr/bin/perl
use strict;
use warnings;
use Set::Scalar::Valued;

test_args(Set::Scalar::Valued->new());

sub test_args
{
        my @opt_args;
        while (my $arg = shift)
        {
                if (ref($arg) eq 'ARRAY')
                {
                        push @opt_args, @$arg;
                }
                else
                {
                        push @opt_args, $arg;
                }
        }
        print scalar(@opt_args), "\n";
}