package Example::Tuple;

use overload(
    '""' => \&asString,
);

sub new
{
    my( $class, @coords )= @_;
    return bless \@coords, $class;
}

sub asString
{
    my( $self )= @_;
    return "(" . join(",",@$self) . ")";
}