view release on metacpan or  search on metacpan

lib/Device/Chip.pm  view on Meta::CPAN

   return $self;
}

# Perl 5.36+ can distinguish this; but this still works fine on older perls
use constant true => (1 == 1);

sub _parse_options ( $, $str )
{
   return map { m/^([^=]+)=(.*)$/ ? ( $1 => $2 ) : ( $_ => true ) }
          split m/,/, $str // "";

}

=head2 mount_from_paramstr

   $chip = await $chip->mount_from_paramstr( $adapter, $paramstr );

A variant of L</mount> that parses its options from the given string. This
string should be a comma-separated list of parameters, where each is given as
a name and value separated by equals sign. If there is no equals sign, the