File Coverage

lib/At/Protocol/Session.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	11	11	100.0

use v5.42;
use feature 'class';
no warnings 'experimental::class';

class At::Protocol::Session 1.3 {
    field $accessJwt : param : reader //= ();
    field $did          : param : reader;
    field $handle       : param : reader = ();
    field $refreshJwt   : param : reader //= ();
    field $token_type   : param : reader = 'Bearer';
    field $dpop_key_jwk : param : reader = ();
    field $client_id    : param : reader = ();
    field $pds          : param : reader = ();

    # Additional fields returned by server
    field $email           : param : reader = ();
    field $emailConfirmed  : param : reader = ();
    field $emailAuthFactor : param : reader = ();
    field $active          : param : reader = ();
    field $status          : param : reader = ();
    field $didDoc          : param : reader = ();
    field $scope           : param : reader = ();
    ADJUST {
        require At::Protocol::DID;
        $did = At::Protocol::DID->new($did) unless builtin::blessed $did;
    }

    method _raw {
        +{  accessJwt  => $accessJwt,
            did        => $did . "",
            refreshJwt => $refreshJwt,
            defined $handle ? ( handle => $handle . "" ) : (),
            token_type => $token_type,
            defined $dpop_key_jwk ? ( dpop_key_jwk => $dpop_key_jwk ) : (), defined $client_id ? ( client_id => $client_id ) : (),
            defined $pds          ? ( pds => $pds . "" )  : (), defined $scope  ? ( scope => $scope ) : (), defined $email ? ( email => $email ) : (),
            defined $status       ? ( status => $status ) : (), defined $active ? ( active => $active ) : (),
        };
    }
}
1;
__END__