Author: s1n Date: 2009-04-04 20:45:14 +0200 (Sat, 04 Apr 2009) New Revision: 26090
Modified: docs/Perl6/Spec/S16-io.pod Log: [spec] minor touch-ups to better format the pod for perl5's perldoc tool. Modified: docs/Perl6/Spec/S16-io.pod =================================================================== --- docs/Perl6/Spec/S16-io.pod 2009-04-04 15:57:31 UTC (rev 26089) +++ docs/Perl6/Spec/S16-io.pod 2009-04-04 18:45:14 UTC (rev 26090) @@ -1,4 +1,3 @@ - =encoding utf8 =head1 Title @@ -62,8 +61,8 @@ syntax: { - temp $*OUT = open $newfile, :w; - foo() # all stdout goes to $newfile + temp $*OUT = open $newfile, :w; + foo() # all stdout goes to $newfile } # stdout reverts to outer scope's definition @@ -77,21 +76,23 @@ =head2 User role -role User { - has $username; # Username (some descendants(?) may want to implement a real $name) - has $id; # User ID - has $dir; # Home directory for files -} + role User { + has $username; # Username (some descendants(?) may want to implement a real $name) + has $id; # User ID + has $dir; # Home directory for files + } +=over + =item new - method User new($Username?, $UID?) {...} + method User new($Username?, $UID?) {...} Creates a new User object, fetching the information either by username or user ID. =item write - method write() {...} + method write() {...} Tries to write the current User object to the user database. This may well fail. @@ -103,50 +104,56 @@ When converted to a Num, returns $uid. +=back + =head2 OS::Unix::User role -role OS::Unix::User does User { - has $password; - has $gid; - has $gecos; - has $shell; -} + role OS::Unix::User does User { + has $password; + has $gid; + has $gecos; + has $shell; + } All the information is naturally fetched from the system via getpwuid, getpwnam, or the like. =head2 Group role -role Group { - has $name; - has $id; - has @members; -} + role Group { + has $name; + has $id; + has @members; + } +=over + =item new - method Group new(:$Name, :$ID); + method Group new(:$Name, :$ID); =item write - method write(); + method write(); Tries to write the group entry into the system group database. -=head OS::Unix::NameServices role +=back +=head2 OS::Unix::NameServices role + The NameServices role has a bunch of functions that between them will return the whole Name Services database between them, as lists of objects. The lists are specifically intended to be lazy. -role NameServices { - method List of User users() {...} # getpwent, setpwent, endpwent - method List of Group groups() {...} # getgrent, setgrent, endgrent - method List of Service services() {...} # getservent, setservent, endservent - method List of Protocol protocols() {...} # getprotoent, setprotoent, endprotoent - method List of Network networks() {...} # getnetent, setnetent, endnetent - method List of Host hosts() {...} # gethostent, sethostent, endhostent -} + role NameServices { + method List of User users() {...} # getpwent, setpwent, endpwent + method List of Group groups() {...} # getgrent, setgrent, endgrent + method List of Service services() {...} # getservent, setservent, endservent + method List of Protocol protocols() {...} # getprotoent, setprotoent, endprotoent + method List of Network networks() {...} # getnetent, setnetent, endnetent + method List of Host hosts() {...} # gethostent, sethostent, endhostent + } =head1 Additions @@ -155,5 +162,4 @@ =cut -=encoding utf8 - +=for vim:set expandtab sw=4: