diff options
Diffstat (limited to 'Master/texmf-dist/source/bibtex/biber/lib/Biber/Entry/Names.pm')
-rw-r--r-- | Master/texmf-dist/source/bibtex/biber/lib/Biber/Entry/Names.pm | 158 |
1 files changed, 0 insertions, 158 deletions
diff --git a/Master/texmf-dist/source/bibtex/biber/lib/Biber/Entry/Names.pm b/Master/texmf-dist/source/bibtex/biber/lib/Biber/Entry/Names.pm deleted file mode 100644 index 72cb7dc400d..00000000000 --- a/Master/texmf-dist/source/bibtex/biber/lib/Biber/Entry/Names.pm +++ /dev/null @@ -1,158 +0,0 @@ -package Biber::Entry::Names; -#use feature 'unicode_strings'; - -use Data::Dump; - -=encoding utf-8 - -=head1 NAME - -Biber::Entry::Names - -=head2 new - - Initialize a Biber::Entry::Names object - -=cut - -sub new { - my $class = shift; - return bless [], $class; -} - - -=head2 notnull - - Test for an empty object - -=cut - -sub notnull { - my $self = shift; - my @arr = @$self; - return $#arr > -1 ? 1 : 0; -} - -=head2 names - - Return ref to array of all Biber::Entry::Name objects - in object - -=cut - -sub names { - my $self = shift; - return $self; -} - -=head2 add_element - - Add a Biber::Entry::Name object to the Biber::Entry::Names - object - -=cut - -sub add_element { - my $self = shift; - my $name_obj = shift; - push @$self, $name_obj; - return; -} - -=head2 count_elements - - Returns the number of Biber::Entry::Name objects in the object - -=cut - -sub count_elements { - my $self = shift; - return scalar @$self; -} - -=head2 nth_element - - Returns the nth Biber::Entry::Name object in the object - -=cut - -sub nth_element { - my $self = shift; - my $n = shift; - return @$self[$n-1]; -} - -=head2 first_n_elements - - Returns a new Biber::Entry::Names object containing only - the first n entries of $self - -=cut - -sub first_n_elements { - my $self = shift; - my $n = shift; - return bless [ splice(@$self, 0, $n) ], Biber::Entry::Names; -} - -=head2 del_last_element - - Deletes the last Biber::Entry::Name object in the object - -=cut - -sub del_last_element { - my $self = shift; - pop(@$self); # Don't want the return value of this! - return; -} - -=head2 last_element - - Returns the last Biber::Entry::Name object in the object - -=cut - -sub last_element { - my $self = shift; - return @$self[-1]; -} - -=head2 dump - - Dump a Biber::Entry::Name object for debugging purposes - -=cut - -sub dump { - my $self = shift; - dd($self); - return; -} - -=head1 AUTHORS - -François Charette, C<< <firmicus at gmx.net> >> -Philip Kime C<< <philip at kime.org.uk> >> - -=head1 BUGS - -Please report any bugs or feature requests on our sourceforge tracker at -L<https://sourceforge.net/tracker2/?func=browse&group_id=228270>. - -=head1 COPYRIGHT & LICENSE - -Copyright 2009-2011 François Charette and Philip Kime, all rights reserved. - -This module is free software. You can redistribute it and/or -modify it under the terms of the Artistic License 2.0. - -This program is distributed in the hope that it will be useful, -but without any warranty; without even the implied warranty of -merchantability or fitness for a particular purpose. - -=cut - -1; - -# vim: set tabstop=2 shiftwidth=2 expandtab: |