triple rather than triple pattern

#!/usr/bin/perl -w
use Attean::RDF;
my $t       = triple(variable('s'), iri('p'), literal('1'));
print $t->as_string;