File Coverage

blib/lib/Data/SExpression/Cons.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	23	23	100.0

use warnings;
use strict;

=head1 NAME

Data::SExpression::Cons -- Representation of a Lisp cons read by
Data::SExpression.

=head1 DESCRIPTION

=cut

package Data::SExpression::Cons;
use base qw(Class::Accessor::Fast);
__PACKAGE__->mk_accessors(qw(car cdr));

=head2 new CAR CDR

Construct a new C with the given C and C

=cut

sub new {
    my $class = shift;
    my ($car, $cdr) = @_;

    my $self = {car => $car, cdr => $cdr};
    return bless($self, $class);
}

=head2 car, cdr

Returns the C or C of this C.

=head2 set_car CAR, set_cdr CDR

Set the C or C of this C object.

=cut

sub mutator_name_for {
    my $self = shift;
    my $name = shift;
    return "set_$name";
}

=head1 SEE ALSO

L

=head1 AUTHOR

Nelson Elhage

=cut

1;