Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re^2: Perl and Google Charts extended encoding

by TGI (Parson)
on May 04, 2011 at 16:03 UTC ( #902921=note: print w/replies, xml ) Need Help??

in reply to Re: Perl and Google Charts extended encoding
in thread Perl and Google Charts extended encoding

You're right about being almost a CPAN module. But for the minimal case of encoding one string format to another, there is no reason for OOP.

If you provide a way to work with data sets in the abstract, an OOP approach starts to make sense.

  • Encoder object keeps an array of series. Series are just arrays of numbers.
  • Series can be managed using array-function like methods: push, pop, splice, etc.
  • Provide a from_string method that takes decimal comma/pipe delimited decimal strings and makes objects.
  • Provide a to_string method that generates comma/pipe delimited decimal strings from the object.
  • Provide an encode method that generates an encoded string from the data series in the object.
  • Provide a decode method that takes a maximum value and an encoded string and gets an approximation of the raw data.
  • Provide a decode_scaled method that takesan encoded string and decodes it to values between 0 and 4095.

Note that you could just as easily expose a few functions and handle everything as native structures and go 100% procedural here, as well. OOP could be a nice win if you have a group of similar encodings that use scaling functions and serialization in similar ways. Then you'll actually be able to benefit from inheritance (at least if you designed your class to support the correct abstractions).

An even better choice would be to check CPAN and see if there are any multi-front-end charting libraries that could be extended to include this output format. What you do then will depend on the charting API's needs.

Oh, BTW, don't do bless( $self );, it silently breaks inheritance. Use 2 argument bless instead. The invoking class name is available as the first argument to your constructor. bless $self, $class;

TGI says moo

Replies are listed 'Best First'.
Re^3: Perl and Google Charts extended encoding
by davido (Cardinal) on May 04, 2011 at 16:39 UTC

    Thanks for the insight, and for the suggestion on 2-arg bless. I raised a few eyebrows by suggesting an OOP approach, and I do understand the reluctance for such a trivial situation. My thought was to avoid polluting namespaces with a function that had such a generic name. But the OP would have options: One, don't export, and do use the fully qualified name. Two, do export, but make it optional to do so. Three, offer both an OO interface and an optional export list. That's probably best. To your point, it doesn't make a lot of sense with just one function, but as functionality gets added, it starts making more sense.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://902921]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (9)
As of 2021-05-06 19:28 GMT
Find Nodes?
    Voting Booth?
    Perl 7 will be out ...

    Results (79 votes). Check out past polls.