/[Search-Estraier]/trunk/Estraier.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/Estraier.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 6 by dpavlin, Wed Jan 4 14:48:11 2006 UTC revision 7 by dpavlin, Wed Jan 4 14:57:27 2006 UTC
# Line 43  implementation. It also includes methods Line 43  implementation. It also includes methods
43    
44  package Search::Estraier::Document;  package Search::Estraier::Document;
45    
46    use Carp qw/confess/;
47    
48  =head1 Search::Estraier::Document  =head1 Search::Estraier::Document
49    
50  Document for HyperEstraier  Document for HyperEstraier
# Line 132  sub id { Line 134  sub id {
134          return $self->{id};          return $self->{id};
135  }  }
136    
137    =head2 attr_names
138    
139    Get a list of attribute names of a document object.
140    
141      my @attrs = $doc->attr_names;
142    
143    =cut
144    
145    sub attr_names {
146            my $self = shift;
147            confess "attr_names return array, not scalar" if (! wantarray);
148            return sort keys %{ $self->{attrs} };
149    }
150    
151  =head2 dump_draft  =head2 dump_draft
152    
153    print $doc->dump_draft;    print $doc->dump_draft;
Legend:
Removed from v.6  
changed lines
  Added in v.7
  ViewVC Help
Powered by ViewVC 1.1.26