[tpm] eval oddness

[Madison Kelly]

Dave Doyle wrote:
> I do not think that means what you think that means. :)

Oops, meant to include the code they use in their docs:

-------------------------------------------
use base qw(Net::DBus);

sub new {
       my $class = shift;
       my $service = shift;
       my $self = $class->SUPER::new($service, "/music/player/manager");

       bless $self, $class;

       return $self;
}
-------------------------------------------

Madi