$self->{ name } = $args{ name } || do { 'default'}; $self->{ value } = $args{ value } || do { '' }; $self->{ chars } = $args{ chars } || do { qr{^[a-z]+$} }; #### ---------------------------- ------ ------ ------ ------ ------ ------ ------ File stmt bran cond sub pod time total ---------------------------- ------ ------ ------ ------ ------ ------ ------ cover.pl 100.0 n/a 66.7 100.0 n/a 100.0 95.3 Total 100.0 n/a 66.7 100.0 n/a 100.0 95.3 ---------------------------- ------ ------ ------ ------ ------ ------ ------