sub get {
    my $self = shift;
    my $uri = shift;
...