view release on metacpan or  search on metacpan

lib/Data/Object/String.pm  view on Meta::CPAN

  my $string = Data::Object::String->new('explain the unexplainable');

  $string->rindex('explain', 20); # 14

=back

=over 4

=item rindex example #7

  my $string = Data::Object::String->new('explain the unexplainable');

  $string->rindex('explain', 14); # 0

=back

=over 4

=item rindex example #8

  my $string = Data::Object::String->new('explain the unexplainable');

  $string->rindex('explain', 13); # 0

=back

=over 4

=item rindex example #9

  my $string = Data::Object::String->new('explain the unexplainable');

  $string->rindex('explain', 0); # 0

=back

=cut

=head2 snakecase

  snakecase() : Str

The snakecase method converts the string to snakecase.

=over 4

=item snakecase example #1

  my $string = Data::Object::String->new('hello world');

  $string->snakecase; # hello_world

=back

=cut

=head2 split

  split(RegexpRef $arg1, Num $arg2) : ArrayRef

The split method returns an arrayref by splitting on the argument.

=over 4

=item split example #1

  my $string = Data::Object::String->new('name, age, dob, email');

  $string->split(', '); # ['name', 'age', 'dob', 'email']

=back

=over 4

=item split example #2

  my $string = Data::Object::String->new('name, age, dob, email');

  $string->split(', ', 2); # ['name', 'age, dob, email']

=back

=over 4

=item split example #3

  my $string = Data::Object::String->new('name, age, dob, email');

  $string->split(qr/\,\s*/); # ['name', 'age', 'dob', 'email']

=back

=over 4

=item split example #4

  my $string = Data::Object::String->new('name, age, dob, email');

  $string->split(qr/\,\s*/, 2); # ['name', 'age, dob, email']

=back

=cut

=head2 strip

  strip() : Str

The strip method returns the string replacing occurences of 2 or more
whitespaces with a single whitespace.

=over 4

=item strip example #1

  my $string = Data::Object::String->new('one,  two,  three');

  $string->strip; # one, two, three

=back