2bd7f907b7f5b6bbd91822c0c7b835f6

Edit file

File name : CSE.pm

Content :

#!/usr/bin/perl -w

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
#    02110-1301, USA

package Finance::Quote::CSE;

use strict;
use warnings;

use constant DEBUG => $ENV{DEBUG};
use if DEBUG, 'Smart::Comments';

use LWP::UserAgent;
use JSON qw( decode_json );
use Text::Trim;

our $VERSION = '1.51'; # VERSION

our @labels = qw/last date isodate/;

sub labels {
  return ( cse => \@labels );
}

sub methods {
  return ( cse => \&cse );
}

sub cse {
  my $quoter  = shift;
  my @symbols = @_;
  my $ua      = $quoter->user_agent();
  my %info;

foreach my $symbol (@_) {
    eval {
      my $url      = 'https://www.cse.lk/api/companyInfoSummery';
      my $form     = {'symbol' => $symbol};
      my $reply    = $ua->post($url, $form);
      my $search   = JSON::decode_json $reply->content;

### Search   : $url, $form, $reply->code
      ### Search   : $search

my $data = $search->{reqSymbolInfo} or die('query did not return expected data');

$info{$symbol, 'isin'}     = $data->{isin};
      $info{$symbol, 'close'}    = $data->{closingPrice};
      $info{$symbol, 'last'}     = $data->{lastTradedPrice};
      $info{$symbol, 'high'}     = $data->{hiTrade};
      $info{$symbol, 'low'}      = $data->{lowTrade};
      $info{$symbol, 'cap'}      = $data->{marketCap};
      $info{$symbol, 'name'}     = $data->{name};
      $info{$symbol, 'currency'} = 'LKR';
      $info{$symbol, 'success'} = 1;
    };
    
    if ($@) {
      my $error = "CSE failed: $@";
      $info{$symbol, 'success'}  = 0;
      $info{$symbol, 'errormsg'} = trim($error);
    }
  }

return wantarray() ? %info : \%info;
}

=head1 NAME

Finance::Quote::CSE - Obtain quotes from Colombo Stock Exchange in Sri Lanka

=head1 SYNOPSIS

use Finance::Quote;

$q = Finance::Quote->new;

%info = Finance::Quote->fetch('cse', 'YORK.N0000');

=head1 DESCRIPTION

This module fetches information from the Colombo Stock Exchange (CSE)
in Sri Lanka http://www.cse.lk.

This module is loaded by default on a Finance::Quote object. It's also possible
to load it explicitly by placing 'CSE' in the argument list to
Finance::Quote->new().

=head1 LABELS RETURNED

The following labels may be returned by Finance::Quote::CSE :
isin name currency date isodate ask close high low open volume success

=head1 TERMS & CONDITIONS

Use of www.cse.lk is governed by any terms & conditions of that site.

Finance::Quote is released under the GNU General Public License, version 2,
which explicitly carries a "No Warranty" clause.

=cut

Dalgety Marketing Solutions

Marketing Strategy

Meet Eva

Hello & Welcome, my name is

Eva Dalgety

Your Ecom Genie!

I’m the owner of www.evadalgety.com. I specialise in helping small businesses and entrepreneurs unlock online profits in their business.

Learn More

My Journey

Podcast Interview

With 10 years plus experience as a corporate IT analyst and linking advance online marketing skills, I now help my clients to increase their business profits. For example, in the last 5 years alone I have increased the sales and profits for family’s tea business by over 317% online just by utilising these strategies. I have also helped other clients do the same.

My consulting clients range from ecommerce businesses, manufacturing businesses, professional services and charities. Currently many small businesses are losing enquires and sales because of ineffective processes. Using my proven 3-step process, I help their business to implement processes to win more clients/customers, generate more sales and increase their profits.

If you know a business or an individual who could benefit from my help, enter your name and email address on this page to get my free report ”The 5 Deadly Mistakes That Are Costing Your Business Thousands In Lost Sales Right Now And How To Avoid Them – Guaranteed!” and learn quick easy ways to improve your bottom line.

My programmes

Like what you’ve seen so far?

Let’s Talk!

Click here

Gel4y Mini Shell