gistfile1.txt

# How to make things unhappy.
#
# 1. Go to the end of the file.  Open the editor so that your cursor is on the last line of the file.
#
# 2. Scroll up until the "Scroll up so that..." is the top line.  Everything is OK.
#
# 3. Scroll up two lines.  Everything goes white.
#
# 4. Scroll up three more lines.  Everything is now confused by the single quote in the POD.
#
# 5. Scroll up four more lines.  Everything is back to normal.

=head2 is_tchecking( $user )

Returns true if C<$user> exists and is currently following this collection, false otherwise.
Can only be used on collections based on a TW::DB::Collection (i.e. personal collections),
because you don't follow collections based on a school -- you follow the entire school --
so the "is_tchecking()" question for a school is handled by C<TW::FollowableSchool>.

=cut

# Scroll up so the =cut two lines above becomes the top line in the window.

sub is_tchecking {
# yada
# yada
# yada
# yada
# yada
# yada
# yada
# yada
# yada
# yada
}


my %blah = ( blah => 'blah' );

sub follow {
# yada
# yada
# yada
# yada
# yada
# yada
# yada
# yada
# yada
# yada
# yada
}

__DATA__
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah
blah