File Coverage

blib/lib/DataStructure/DoubleList.pm

Criterion	Covered	Total	%
statement	92	92	100.0
branch	13	14	92.8
condition			n/a
subroutine	18	18	100.0
pod	9	10	90.0
total	132	134	98.5

# A double-linked list data-structure.

package DataStructure::DoubleList;

use strict;
use warnings;
use utf8;
use feature ':5.24';
use feature 'signatures';
no warnings 'experimental::signatures';

use DataStructure::DoubleList::Node;

=pod

=head1 NAME

DataStructure::DoubleList

=head1 SYNOPSIS

A double-linked list data-structure, written in pure Perl.

See also L for a non double-linked list version.

=head1 DESCRIPTION

=head2 CONSTRUCTOR

Cnew()>

Creates an empty list.

=cut

sub new ($class) {
  return bless { size => 0, first => undef, last => undef}, $class;
}

=pod

=head2 METHODS

All the functions below are class methods that should be called on a
B object. Unless documented, they run in constant
time.

=head3 I

Returns the first L of the list, or B if
the list is empty.

=cut

sub first ($self) {
  return $self->{first};
}

=pod

=head3 I

Returns the last L of the list, or B if
the list is empty.

=cut

sub last ($self) {
  return $self->{last};
}

=pod

=head3 I

Adds a new node at the end of the list with the given value. Returns the newly
added node.

=cut

sub push ($self, $value) {
  my $new_node = DataStructure::DoubleList::Node->new($self, $self->{last}, undef, $value);
  $self->{last}{next} = $new_node if defined $self->{last};
  $self->{last} = $new_node;
  $self->{first} = $new_node unless defined $self->{first};
  $self->{size}++;
  return $new_node;
}


=pod

=head3 I

Adds a new node at the beginning of the list with the given value. Returns the
newly added node.

=cut

sub unshift ($self, $value) {
  my $new_node = DataStructure::DoubleList::Node->new($self, undef, $self->{first}, $value);
  $self->{first}{prev} = $new_node if defined $self->{first};
  $self->{first} = $new_node;
  $self->{last} = $new_node unless defined $self->{last};
  $self->{size}++;
  return $new_node;
}

=pod

=head3 I

Removes the last node of the list and returns its value. Returns B if the
list is empty. Note that the method can also return B if the last node’s
value is B

=cut

sub pop ($self) {
  return $self->{last}->delete if defined $self->{last};
  return;
}


=pod

=head3 I

Removes the first node of the list and returns its value. Returns B if
the list is empty. Note that the method can also return B if the first
node’s value is B

=cut

sub shift ($self) {
  return $self->{first}->delete if defined $self->{first};
  return;
}

=pod

=head3 I

Returns the number of nodes in the list.

=cut

sub size ($self) {
  return $self->{size};
}

=pod

=head3 I

Returns whether the list is empty.

=cut

sub empty ($self) {
  return $self->size() == 0;
}

=pod

=head3 I

Returns all the values of the list, as a normal Perl list. This runs in linear
time with the size of the list.

=cut

sub values ($self) {
  return $self->size() unless wantarray;
  my @ret = (0) x $self->size();
  my $i = 0;
  my $cur = $self->first();
  while (defined $cur) {
    $ret[$i++] = $cur->value();
    $cur = $cur->next();
  }
  return @ret;
}

sub DESTROY ($self) {
  my $next = $self->{first};
  while (defined $next) {
    my $cur = $next;
    $next = $cur->{next};
    undef %{$cur};
  }
  return;
}

=pod

=head1 AUTHOR

Mathias Kende

=head1 LICENCE

Copyright 2021 Mathias Kende

This program is distributed under the MIT (X11) License:
L

Permission is hereby granted, free of charge, to any person
obtaining a copy of this software and associated documentation
files (the "Software"), to deal in the Software without
restriction, including without limitation the rights to use,
copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the
Software is furnished to do so, subject to the following
conditions:

The above copyright notice and this permission notice shall be
included in all copies or substantial portions of the Software.

THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
OTHER DEALINGS IN THE SOFTWARE.

=head1 SEE ALSO

L, L

=cut

1;