view release on metacpan or  search on metacpan

lib/App/Chart/IntradayHandler.pm  view on Meta::CPAN

  ### response: $resp->status_line
}


sub name_sans_mnemonic {
  my ($self) = @_;
  my $name = $self->{'name'};
  $name =~ s/_//;
  return $name;
}

sub name_as_markup {
  my ($self) = @_;
  my $name = $self->{'name'};
  $name =~ s{_(.)}{<u>$1</u>};
  return $name;
}
sub name_mnemonic_key {
  my ($self) = @_;
  my $name = $self->{'name'};
  $name =~ s/__//;
  return ($name =~ /_(.)/ && $1);
}

1;
__END__

# =for stopwords intraday
# 
# =head1 NAME
# 
# App::Chart::IntradayHandler -- intraday download handlers
# 
# =for test_synopsis my (@handlers)
# 
# =head1 SYNOPSIS
# 
#  use App::Chart::IntradayHandler;
# 
#  # register new
#  App::Chart::IntradayHandler->new ();
# 
#  # find
#  @handlers = App::Chart::IntradayHandler->handlers_for_symbol ('GM');
# 
# =head1 FUNCTIONS
# 
# =over 4
# 
# =item C<< App::Chart::IntradayHandler->new (...) >>
# 
# Create and register a new intraday image handler.  The return is a new
# C<App::Chart::IntradayHandler> object, though usually this is not of interest
# (only all the handlers later with C<handlers_for_symbol> below).
# 
#     my $pred = App::Chart::Sympred::Suffix->new ('.NZ');
# 
#     sub intraday_url {
#       my ($self, $symbol, $mode) = @_;
#       return 'http://ichart.finance.yahoo.com/z?s='
#         . URI::Escape::uri_escape ($symbol)
#         . '&t=' . $mode
#         . '&l=off&z=m&q=l&a=v';
#     }
# 
#     App::Chart::IntradayHandler->new
#       (pred => $pred,
#        proc => \&intraday_url,
#        mode => '1d',
#        name => '1 Day');
# 
# =item C<< @handler_list = App::Chart::IntradayHandler->handlers_for_symbol ($symbol) >>
# 
# Return a list of C<App::Chart::IntradayHandler> objects which are available
# for use with C<$symbol>.  This is an empty list if there's nothing available.
# 
# =item C<< $handler = App::Chart::IntradayHandler->handler_for_symbol_and_mode ($symbol, $mode) >>
# 
# Return a C<App::Chart::IntradayHandler> object for use on the given
# C<$symbol> and C<$mode>.  C<$mode> is a string matched against the C<mode>
# specified in the handlers available for C<$symbol>.
# 
# =item $handler->download ($symbol)
# 
# Do a download on C<$handler> for C<$symbol>.  The result is written to the
# database.
# 
# =back
# 
# =head1 SEE ALSO
# 
# L<App::Chart::Intraday>
# 
# =cut