Param.pm

{
	package Param;
	use Moo;
	use overload q[""] => q[to_string];
	has [qw/ type name /] => (is => 'ro');
	sub BUILDARGS {
		my $class = shift;
		if (@_==1 and not ref $_[0] and $_[0] =~ /^([\$\%\@])(.+)$/) {
			return +{ type => $1, name => $2 };
		}
		return $class->SUPER::BUILDARGS(@_);
	}
	sub to_string {
		my $self = shift;
		join q(), $self->type, $self->name;
	}
}

use feature qw(say);
my $param = Param->new('$foo');
say $param->type;
say $param->name;
say $param;