my $tied_variable;
tie $tied_variable,
    'Tie::Scalar::Function' => sub { ok( defined $_[0], "got something -> $_[0]"
 ) };

$tied_variable = "assignment";