package test;
use gadget;
use vars qw($VERSION $CLASS);
$CLASS = __PACKAGE__;
$VERSION = "0.01";

BEGIN {
        @test::ISA = qw(gadget);
        @test::ISA = qw(Exporter);
        @test::EXPORT = qw(parse_tag);
}

sub new {
        my $class = shift || $CLASS;
        my $obj = $class->SUPER::new($class);
        $obj->{test_attr} = "atributo de prueba";
        return($obj);
}

sub test_stuff {
        my $self = shift;
        foreach my $a (@_){
                print "($self) ARGUMENTO: $a\n";
        }
}