summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/bibtex/biber/lib/Biber/Entry/Names.pm
diff options
context:
space:
mode:
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.pm158
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: