Parent Directory
| 
Revision Log
| 
Patch
| revision 1.15 by wakaba, Mon Aug 6 10:56:50 2007 UTC | revision 1.16 by wakaba, Wed Oct 17 10:46:26 2007 UTC | |
|---|---|---|
| # | Line 509 sub name ($) { | Line 509 sub name ($) { |
| 509 | return shift->{name}; | return shift->{name}; |
| 510 | } # name | } # name |
| 511 | ||
| 512 | sub public_id ($;$) { | |
| 513 | $_[0]->{public_id} = $_[1] if @_ > 1; | |
| 514 | return $_[0]->{public_id}; | |
| 515 | } # public_id | |
| 516 | ||
| 517 | sub system_id ($;$) { | |
| 518 | $_[0]->{system_id} = $_[1] if @_ > 1; | |
| 519 | return $_[0]->{system_id}; | |
| 520 | } # system_id | |
| 521 | ||
| 522 | =head1 SEE ALSO | =head1 SEE ALSO |
| 523 | ||
| 524 | L<Whatpm::HTML> | L<Whatpm::HTML> |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |