The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use strict;
sub is_type_c :CarrierMethod('ThirdForce') { $_[1]->type =~ /^C/ }
sub is_type_p :CarrierMethod('ThirdForce') { $_[1]->type =~ /^P/ }
sub is_type_w :CarrierMethod('ThirdForce') { $_[1]->type =~ /^W/ }
sub is_type_3gc :CarrierMethod('ThirdForce') { $_[1]->type eq '3GC' }
1;